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The  objective  of  the  effort  documented  herein  was  to  provide  com- 
puter programming  support  for  Space  Surveillance  system  analysis.  The 
two  primary  tasks  of  the  effort  were  to  complete  the  modification  of  the 
RADC  Trajectory  Program  and  to  modify  various  radar  cross-section  and 
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SECTION  I INTRODUCTION 

The  computer  programs  documented  in  this  section  of  the 
report  were  originally  developed  by  the  Fort  Worth  Division 
of  General  Dynamics,  under  Contracts  F30602-69-C-0164  and 
F30602-67-C-007.  FRC  has  installed  these  programs  on  the 
RADC  HIS  6180  GECOS  Time  Sharing  System.  Some  of  the  programs 
need  minor  cleaning  up  since  the  test  expired.  Each  Roman  Numeral 
Section  has  its  own  Table  of  Contents. 
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SECTION  1 


SCOPE 


This  specification  establishes  the  requirements  for 
complete  identification  and  acceptance  of  the  computer  program 
to  be  formally  accepted  by  the  procuring  agency.  EDP  program 
SP3D  was  originally  written  by  the  Convair  Aerospace  Division 
of  General  Dynamics  for  use  with  an  IBM  360  computer  system  under 
contract  F30 (602 ) -69-C -0164  ; however,  the  necessary  changes  have 
been  incorporated  to  make  the  program  compatible  with  the  GE 
635/645  computer  system  at  RADC.  This  documentation  has  been 
prepared  in  accordance  with  the  RADC  Computer  Program  Detail 
Specification,  28  January  1968. 
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SECTION  2 


APPLICABLE  DOCUMENTS 


The  documents,  of  exact  issue  shown,  form  a part  of  this 
specification  to  the  extent  specified  herein.  In  the  event  of 
conflict  between  documents  referenced  here  and  the  detail  con- 
tent of  Sections  3,  4,  and  5,  the  detailed  contents  of  Sections 
3 through  5 shall  be  considered  as  superseding  requirements. 


1. 

GE-600 

Line 

FORTRAN  IV 

CPB-1006G 

2. 

GE-600  Line  FORTRAN  IV 
Subroutine  Libraries 

CPB-1620 

3. 

GE-600 

Line 

General  Loader 

CPB-1008F 

4. 

GE-600 

Line 

System  Editor 

CPB-1138C 
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SECTION  3 


REQUIREMENTS 

Computer  program  SP3D  has  as  its  primary  function  the  display, 
in  a psuedo  three-dimensional  form,  of  edited  short-pulse  radar 
signature  data.  The  program  has  available  several  capabilities  for 
use  by  the  customer  in  displaying  this  data.  These  capabilities 
include  the  ability  to: 

1.  Select  any  file  on  tape  to  be  plotted 

2.  Select  whether  to  plot  amplitude  data  only  or 
amplitude  and  phase  data 

3.  Select  the  number  of  sweeps  displayed 

4.  Select  the  oblique  skew  desired 

5.  Display  data  expressed  in  voltage  or  decibels. 


3.1  CP  CHARACTERISTICS 

Computer  program  SP3D,  which  consists  of  an  executive  routine, 
subroutine  SP3D  and  subroutine  DATAIN,  is  described  in  detail  in 
the  following  paragraphs. 

3.1.1  CP  Flow  Chart 

Figures  1 and  2 depict  the  overall  flow  of  the  computer 
program. 


3.1.2  CP  Timing 

Run  time  for  the  sample  problem  was  less  than  8 minutes. 

3.1.3  Storage  Allocation 

58K  is  the  minimum  memory  needed  to  load  SP3D  with  all  files 

open . 


3.1.4  Data  Base  Characteristics 

Radar  signature  input  data  for  this  program  are  contained  on 
7-track  magnetic  tape  recorded  at  556  bpi.  Figure  3 contains  a 
detailed  description  of  the  tape  format. 
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Figure  3 MAGNETIC  TAPE  FORMAT 


6 


3.2  COMPUTER  PROGRAM  SUBROUTINE  CHARACTERISTICS 


This  paragraph  contains  the  detailed  technical  descriptions 
of  the  computer  program  subroutines  identified  in  paragraph  3.1 
of  this  specification.  The  instruction  listings  contained  herein 
by  inclusion  or  reference  specify  the  exact  configuration  of  SP3D. 
SP3D  is  written  in  FORTRAN  Y language  for  use  with  the  GE  635/645 
computer  system. 


3.2.1  Executive  Routine 

The  executive  routine  of  SP3D  is  responsible  for  (1)  reading 
and  testing  input  data  for  tape  and  plot  control,  (2)  acquiring 
and  scaling  data  from  tape,  (3)  determining  if  the  tape  is  in  dB 
or  millivolts,  and  (4)  writing  header  and  trailer  information  ob- 
tained from  the  second  record  of  each  sweep  onto  a plot  frame. 

3. 2. 1.1  Description  of  Executive  Routine 

Card  input  data  to  SP3D  is  tested  for  the  correct  range  of 
values.  If  values  are  found  to  be  outside  their  permissible  range, 
they  are  either  set  to  be  within  the  permissible  range  or  execution 
is  halted  depending  on  the  variable  being  tested. 

Generally,  edited  short-pulse  magnetic  tapes  are  expressed 
in  millivolts;  however,  at  times  it  has  been  desirable  to  have 
the  amplitude  data  expressed  in  dB  (relative  to  saturation). 
Therefore,  FORTRAN  logic  has  been  implemented  to  detect  whether 
tapes  to  be  displayed  are  expressed  in  millivolts  or  dB.  This  is 
accomplished  by  testing  the  algebraic  sign  of  the  amplitude  channel 
data  in  the  first  sweep  of  the  first  file.  If  the  sign  is  positive, 
it  indicates  that  the  data  is  in  millivolts;  if  negative,  then  the 
data  is  expressed  in  dB.  The  phase  channels  are  always  expressed 
in  millivolts . 

A scale  factor  of  (1/500)  is  chosen  when  the  amplitude  response 
is  in  millivolts.  This  produces  a maximum  display  of  20  units  in 
amplitude  for  each  radar  signature.  For  the  case  in  which  the 
amplitude  has  been  calibrated  in  dB,  scaling  is  accomplished  accord- 
ing to 


<r  - (^T  + YTOP) 
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vhere 


°\p  = Amplitude  response  read  from  magnetic  tape  (in  dB) 

crp  = Scaled  amplitude  response  for  display 

YTOP  = User-selected  scale  factor 

The  constant,  YTOP,  is  used  to  "mirror"  all  amplitude  samples  to 
magnitudes  greater  than  zero  and  is  entered  into  the  program  via 
punched  cards.  If,  for  example,  it  is  desired  to  produce  a 20  dB 
dynamic  range  display  of  the  amplitude  response,  then  the  user 
should  enter  the  value  of  20.0  for  YTOP.  The  resulting  three- 
dimensional  presentation  will  consist  of  analog  traces  of  all 
amplitudes  which  were  within  20  dB  of  saturation.  Amplitudes 
which  were  of  lesser  magnitude  will  be  displayed  a_t  the  20  dB 
threshold  level. 

In  selecting  a value  for  YTOP,  the  user  should  have  knowledge 
of  the  threshold  which  was  used  when  the  amplitude  data  was  cali- 
brated. That  is,  if  only  that  data  which  was  within  25  dB  of 
saturation  was  calibrated,  then  the  value  of  YTOP  should  not  ex- 
ceed 25.0  when  entered  into  SP3D.  A violation  of  this  practical 
limit  would  simply  result  in  a 25  dB  dynamic  range  display  of 
the  signatures. 

The  user  of  SP3D  has,  through  card  input  to  the  executive 
routine,  the  option  of  displaying  the  scaled  amplitude  response 
only,  or  of  displaying  both  the  scaled  amplitude  response  as  well 
as  the  response  which  is  computed  through  the  use  of  the  two  phase 
components . 

The  phase  response  is  displayed  in  the  form  of  Kp  v0^  + cr^2 

where  Kp  has  been  arbitrarily  chosen  as  (.707/500).  The  display 
of  this  data  was  made  optional  since  it  increases  program  run  time 
by  approximately  40-percent  and  may  not  be  desired  from  each  mag- 
netic tape.  In  either  case,  the  user  is  provided  with  a complete 
run  log  of  the  information  contained  on  tape.  This  run  log  is 
printed  on  the  plot  frame  next  to  the  actual  plot.  This  log  is  in 
the  form  of  a listing  of  the  header  and  trailer  data  obtained  from 
the  second  record  of  each  sweep.  If  desired,  the  user  also  has 
the  option  of  skipping  any  file  on  tape. 
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The  number  of  sweeps  per  plot  frame  is  specified  through  use  of  the 
input  parameter,  NSWPLT.  This  constant  is  tested  by  the  program  to  assure 
that  its  value  is  greater  than  0 but  less  than  or  equal  to  70.  In  the 
event  that  it  is  not  within  this  range,  it  is  automatically  set  to  a 
value  of  70.  If  more  data  exists  on  tape  than  can  be  plotted  on  s single 
plot  frame,  additional  frames  will  be  utilized  as  each  is  filled  to  the 
desired  density,  NSWPLT. 

3. 2 . 1 .2  Flow  Chart 


A detailed  flow  chart  of  the  executive  routine  is  found  in  the 
fol lowing  pages . 

3 . 2 . 1 . 3 Interfaces 

3. 2. 1.3.1  Input  Data 

a.  Magnetic  Tape: 

Magnetic  tape  input  to  SP3D  consists  of  a 7-track  tape 
recorded  at  556  bpi.  All  characteristics  of  the  magnetic 
tape  input  are  obtainable  from  Figure  3. 

b.  Punched  Card: 

Three  punched  cards  are  required  from  input  to  SP3D. 

These  are  described  as  follows: 


VARIABLE 

DEFINITION 

COLUMNS 

NFILES 

Total  number  of  data  files  on 
tape 

1-5 

NFSKP 

Number  of  files  not  to  be  plotted 

6-10 

NRPS 

Number  of  digital  records  per 
sweep 

11-15 

NSWPLT 

Number  of  sweeps  plotted  per 
frame 

16-20 
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CARD  1 

VARIABLE 

DEFINITION 

COLUMNS 

NAP 

0 for  amplitude  only 

1 for  amplitude  & phase 

21-25 

KAY 

Display  skew 

26-30 

*YT0P 

Dynamic  range  of 
amplitude  data  (dB) 

30-40 

*YT0P  is 

ignored  if  the 

recorded  amplitude  is  expressed 

1 in  millivolts 

CARD  2 

VARIABLE 

DEFINITION 

COLUMNS 

*IFSKP(i) 

An  array  whose  components 

1-5,  6-10, 

i=l  to 
NFSKP 

are  numerically  the  files 
to  be  skipped 

etc . 

*Card  2 

is  not  required 

if  NFSKP  - 0. 

CARD  3 This  card  is  used  for  labeling  the  three-dimensional 
displays.  Any  alphanumeric  title  may  be  entered  into 
Columns  1-44. 


3. 2. 1.3. 2 Output  Data.  Output  data  from  the  executive  routine 
consists  of  the  header  and  trailer  information  of  each  sweep  being 
written  onto  the  proper  plot  frame. 

3. 2. 1.3. 3 Subroutines  Called.  The  following  subroutines  are 
called  by  the  executive  routine: 


1. 

DATA IN 

2. 

SP3D 

3. 

Plotting  Subroutines  NUMBER,  STDBY 

3. 2. 1.4 

Limitations 

Variable 
KAY 
NR  PS 
NFSKP 
NSWPLT 


Limitation 
0 < KAYS  10 
0 < NRPS  < 6 
0 < NFSKP < 20 
0 < NSWPLT  < 70 


r 


All  fixed  point  variables  on  input  must  be  right  adjusted. 

3 . 2 . 1 . 5 Listing 

A listing  of  the  executive  routine  is  found  in  the  following 
pages . 


3.2.2  Computer  Program  Subroutine  SP3D 

Subroutine  SP3D  has  as  its  primary  functions  (1)  the  selection 
of  points  to  be  plotted  and  (2)  skewing  and  plotting  of  the  data. 
Subroutine  SP3D  is  written  in  FORTRAN  IV  language  for  use  with  the 
GE  635/645  computer  system  at  RADC. 

3.2.2. 1 Description  of  Subroutine  SP3D 

In  subroutine  SP3D,  all  sweeps  except  for  the  first  of  each 
plot  frame  are  shifted  in  the  X and  Y directions.  The  input 
variable  KAY  provides  the  horizontal  displacement  per  unit  verti- 
cal displacement. 

The  first  sweep  of  each  plot  frame  is  plotted  in  its  entirety 
The  points  of  each  successive  sweep  are  tested  to  see  if  they  will 
be  plotted.  The  criteria  used  for  the  selection  is  such  that  if 
the  point  under  consideration  (after  being  shifted)  is  less  than 
or  equal  to  the  point  immediately  below  it  in  the  previous  sweep 
then  the  point  shall  not  be  plotted.  Figure  4 illustrates  this 
technique  in  a blown  up  portion  of  a sweep.  Plotting  is  accomplisl 
by  using  standard  RADC  plotting  routines. 

3 . 2 . 2 . 2 Subroutine  SP3D  Flow  Chart 

A detailed  flow  chart  of  subroutine  SP3D  is  contained  in  the 
following  pages. 

3. 2. 2. 3 Interfaces 

3. 2. 2. 3.1  Input . Input  to  subroutine  SP3D  consists  of  (1) 
the  variables  in  common  blocks  1,  2,  3,  4 and  (2)  the  variables 
ITHETA,  SHADOW,  and  X which  are  transferred  through  the  subroutine 
argument  list. 

3. 2. 2. 3. 2 Output . The  output  of  subroutine  SP3D  consists 
of  the  three-dimensional  plot  of  the  radar  signature  data. 


jL 
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C MAIN  - SP3D  7090  3 

COMMON/BLOCK1/MPTS>NPTSS, I Tc. Ka Y. DELTA V, DATA <540  ) 

COMMON  /BlOC<2 / Y(J t yl7  YU7  TITLEUl) 

COMMON  /BL0C<3/  NOPLOT , FKAY » NAP 
COMMON  /HL0C<4/  XPaR<8),  YPaR(») 

COMMON  /bl0c<5/  X ( 6u  0 ) , ShaD1<6j0),  S*AD2t6Q0> 

COMMON  /INPUT/  INDATt 309) , IEOF 
DIMENSION  IFSKP(2C'> 

1IDATI  (94rj)  , IDATQ(54l,  ) :iDATA(54()}  , 

2 DAT l ( 54C ) , DATQ(54G)  . DATSO ( 70,540 ) 

C 

DIMENSION 

3HE ADR  ( 1Q0 , 5 J , TR  A I L ( 1 ..  3 , 8 ) ,HEAD(5>  .TRAMS) 

C 

DIMENSION  NINES<90>  ,NBRPTS<10O) 
dimension  ptw=ta<i3> 
c 

5 CONTINUE 

c 

read  (5,10  3)  nfiles,  nfsk  p,  nrps.  nswplt,  nap,  kay  ,ytop 

110C  FORMAT  ( 6 I S » F 1 U , 0 ) 

IF  ( KAy  .LT.  .or.  KAy  .GT.  10  ) KAy  c 6 

fXAY  a Kay 

Ir<  NSWPLT  ,LE,  0 .OR.  NSWPLT  , GT , 70  ) NSWPLT  = 70 

W*ITe  ( 6 » 9r  3 ) 

YSCALE  «=  1 3 . j*  Y TOP 
I r ( NAP  .GT;  l ) NAP  ■ 1 
NAP  s NAP  ♦ l 
NPTS  « 9r,«NSP3 

WRITE  <6.2  31)  NFILES,  NFSKP,  NRPS,  NSWp|.T  ,KAY 

2318  Format  (1QH  nfiles  = ,i3.i:h  nfskp  * .I3r 

1/  1 0 M NRPS  = #13,1  'H  NSwPLT  s ,\Z’t 

2/  10H  <Ay  = / 1 3 

3) 

I r < NRPS  .GT.  ,aND.  NRPS  M.  6 ) 5fl  TO  6 
Write  (6,3990) 

399®  Format  (25H  N2D$  NE  to  90,..,  54'1  ) 

Call  exit 

6 CONTINUE 

c 

IF<  NFSKP  . _E . 2 0 ) GO  to  9 
WRITE  (6,2  01) 

2QtJi  format  (15H  NPSKP  ,GT.  2C  ) 

Call  exit 
9 CONTINUE 
c 

I F ( NFSKP  . =Q.  3 ) GO  TO  1' 

Read  <5,10  x ifskp< j> ,j*i, nfskp  > 

WRITE  (6,2  1 - ) ( IFSKPI J) ,J*1, NFSKP  ) 

2110  r0RMAT  (2iH  files  TO  0E  SKIPPED  , /,  iM  ,tO(2x,I5)  ) 

GO  T0  15 
18  irSKP(l)  * 0 
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19  CONT I MUE 


c 

WfITE  f 9 » 9 r B T j 
9d#f  r ormat {t 1 1) 
c 
c 
c 
c 

NpTSS  * NP^S 
NOPLOT  * 0 
JCOUNT  * 0 
tSC*LE  » 1 
DEL  T a 1 • 

I UN  e g 

c 

ISKP  • 1 
IFILE  * 0 

e 

e 

READ  <5,60009  * T I TLE < J > i J*1 i ll  > 

|H®9  ToRMATt  12a4  ) 

C 

c 

19  If  I le  ■ Ir I-e  ♦ l 
C 
C 

c 

c 

ITHETa  « 0 
I TC  8 I 

19  i f < iriLE  .eq.  irsKPUSKPi  ) eo  to  ao 
Go  TO  70 

c 

4'j  Call  oataiN 

IT  <IEOF  .LT.  • .OR.  IEOr  . GT . 0)  GO  TO  45 

Go  TO  40 

C 

c 

49  White  *6.203?)  IFILE 
2Q98  format  <16h  bypassed  file  • i2  > 

IEOr  ■ u 

Go  TO  6U 

c 

•0  IFILE  * IFI.E  ♦ 1 

I F ( ISKP  .GE.  NFSKP  ) GO  TO  7Q 
ISKP  > ISK*  ♦ 1 
GO  To  35 
C 

~~  TO  CONTINUE 

WRITE  (6,90  J) 
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»1  CONTINUE 

IT«ET*  r I THETA  ♦ 1 

iTr«irc*i 
7)  CONTINUE 
TS9T  « ! 

83  I S TP  * 1SRT  ♦ 89 

I r ( I SR  T . 3T  . 1 ) GO  TO  81 
C 

CALL  OaTaIN 

IF  < I EOF  ..T.  it  .OR.  I EOF  .Cl.  0)  30  TQ  100 

DECODE! lNOAT(l),lCnO) (HEAD"! ITc. I I ) . I!*l#5) 

1<3J  rORMAT(5*4) 

JK  * 4 

nO  1 .,33  J*  I3RT,  ISTP.3 

PECOnE  (lNDAT(JK»,l032)NlNES{j).!DATt(J),IDAT0(j),iDATA(j) 

1 3?  ro»MAT(2x. 4 I 5 > 

JK  s JK  *8 

DECOOE( INDAT( JK) »i J35)NINES( d*l ) • I DATI < J*l> • I DATQ( J*i>  * IDATA( J*i > 
1138  P0RMAT(4X.«l5) 

JK= JK*4 

DECODE ( INDAT  < JK  ) , 1 '34 ) N I NES ( J* 7 > . I D A T I (J«2>,IDATQ(J*2),IDATACJ*2> 

H 34  r opmat ( 4 1 5 > 

•1.38  jk-jk»3 

nEcOnEi InDaT (3^4). 1333 )( TRaIL! ITC, Jd»,JJ»l,8) 

1 <.  3 1 F0RMaT(4X,  3A4) 

WRITE  (6,53  1)  ITHETA,  (HEADRH  TC.  I I > . I I *1 . 5 » * 

1 (TRAILIITC. JJ) #JJ«1.8) 

i(|0  roRHAT  ( 74  SWEEP ( > 1 3 • 7M  ) .5A4*  3X»8A4> 

•99  • j 

900  *9R  = K99  ♦ 1 

IF!  NINES! < 9 9 ) ,GT.  j ) GO  TD  931 
I F < K99  .lT.  9j  ) GO  TO  9 J 
<97  ■ 1 

♦01  <DEl  * K99  - t 

nptss  ■ npts  -K99 

IF  ! ]lHETA  .NE.  1 > GO  To  82 
I Sr ALE  * 1 

IF  (IPATA(ISTP)  .LT.  “•)  ISCALE  * 2 
C 

CO  TO  82 
C 

01  CALL  DaTaM 

IF  ( I EOF  ._T.  0 .OR.  I EOF  .GT.  0>  GO  TO  100 
OECODE!  InDAT<1).1'jVmhfad<I!).I!s1.5) 

JK  * 4 

«0  l 38  JtlSRT, ISTP.3 

nE "ODE  <INDAT‘jK>, n39>  IDaTI < j>, IDaTq! j), idata! J) 

1x9  9 cowmaT( 7 X . 315) 
jK  * JK ♦ 3 

PECOI'E  ( InDaT(  JK)  ,1  j 4 j)  IDaT!  ( J«i ) 1 I Tl  a T 0 ( J ♦ 1 ) , IDaTa(U*1  ) 

1 4 ' rQRMAT ( 9* . 3 I 5 ) 

JK  * JK  • 4 
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1 


on  o 


H«1  rORMAfU^DJl^K>7l°4l>  IDAt  I « J4»2  > . I DArQ  < J*2 » • I DATA  * j»2  * 

■me  JKiJK+3 

DECODE ( I ND AT (304), 1081) < TRAL t J J > , J J«1 , 8 > 

62  CONTINUE 

I r ( I S TP  • 36 • NPTS  ) GO  TO  ’0 
I S«T  • I SR  7 ♦ ’0 
00  TO  go 

c - - 

c 

♦0  CONTINUE 

00  TO  (91,92,93);  ISCALE 
91  00  *5  J9  » 1 , NPTSS 
K9  « J9  ♦ < DEL 
OaTa(K9)  » I0aTa»K9) 

*5  DAtA<J9>  * DATa<K9>>5jO;'C 
00  TO  650 
C 

♦ 2 00  6,)0  J9  * 1, NPTSS 
K9  > J?  ♦ <DEL 
DATA(K?)  » I DAT  A ( K9  > 

• 60  DATA!,)?)  * ( DAT  A ( K9  ) ♦ Y8CALE  )/100 , 0 
00  TO  650 
93  CONTINUE 

c 

650  CONTINUE 

oo  to  (To^sj1)  ; nap 

c 

T90  CONTINUE 

c 

610  DO  96  J9  » 1, NPTSS 
K’  * J?  * < DEL 
DAT  1 < J 9 > * 1DAT1(K9> 

D A TQ ( J9  ) * I DA  TQ ( K9  ) 

DATI ( j9)  x DAT J ( j9 )/5r 8 • 0 
0atQ  < J?  ) s DaTQ( J9)/5CO.O 

96  DAtS0<  I Tc , J9>  « SQRT(DATKJ9)«oaTI  (J9)  ♦ DA TQ ( J9 1 «DaTQ < J9 > >*1.414 
NBRPTSUTC*  * NPTSS 
C 

•00  CONTINUE 


CALL  SP30‘  I THETA  , SHAD1  ,X  » 

c 

I r < ITg  , N; , NSH»LT  > GO  TO  71 
C 

00  TO  1 701 , 801 > , NAP 
C 

701  CONTINUE 
C 

jTHETa  • I THETA  - NSNPLT 
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J 


I T C a 0 

17  JTHETA  8 JTHETA  ♦ 1 
1 TC  ■ ITC  * 1 
vjP^SS  * NB^PTStlTC) 

no  9m  j9s  i • NpTSS 

f 8 nATA(J9)  s 0ATSQ<  I Tc,  J<>  ) 

CALL  SP3D<  JTHETA  , SHAD2  , * 1 


I F < ITC  .NS.  NSWPLT)  GO  TO  97 
C 

#01  CONTINUE 

c 

c 

XPARU)  * 3.  i 
yP  ar ( 4 j « 3.  j 
*PaR<8)  > 0 • 1 
C 

JTHETA  « I Th=Ta  - NSNPLT 
GO  To  <103,116)  ; NAP 

103  IF  (NOPLOT  .lT.  3)  GO  TO  1 ’ 4 
XPAR<7)  a 16. 

GO  TO  U2 

104  CONTINUE 

XPAR(7)  « l.j 
yP  AR ( 7 ) « 2 .5 
GO  TO  H2 

106  GO  TO  <1  7, 1 9,111)  , NOPLOT 

107  CONtINUE 

XP  AR ( 7 ) ■ 16, * 
yP AR ( 7 ) , 0.5 

GO  TO  112 
109  rONTlNuE 

YPAR(7)  « 1.5 
GO  TO  112 

111  continue 

yPAR(7)  a 2 .5 

112  CONTINUE 
ITC  s o 

130  JTHETA  s JTHETA  ♦ 1 
WTMETA  * JTHETA 

ITC  a ITC  * 1 
C 

DO  131  1 I * 1.5 

131  °TheTa ( I I ) s HE  A0«  < 1 Tc, I I ) 
no  132  II  * 1,8 

132  PTHETA ( I I ♦ 3 ) * TRAIL! ITC#  II  ) 

XPAR<9)  • 1?. 

CALL  NUMBER  (WTHETA  ,'  . . XPAR  , yp AR  ) 
C 

XPAR<5)  • 16, ‘ 
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O Cl  <1 


c 


♦ 6,5 

♦ A • o 35 


URITe  <6,30CJ)  HTHETA#  RTHETA 
<990  FORMAT  (1H  .F5.U5x,l3A4  ) 


XPAR(7)  4 XPaR ( 7 1 - 0.5 
YPaR<7)  « TPar<7>  ♦ 0,ti5 

IP*  !TC  .Ne.  NSWRLT)  GO  TO  1J0 
C 

ITC  ■ U 
QO  TO  71 
C 

too  CONTINUE 
iEor  ■ o 

ITHETA  ■ ITHETA  - 1 
ITC  ■ ITC  - 1 
WRITE  (6.9000) 

urttb  (6,4320)  i r ile 

U20  FORMAT  (234  COMPLETED  DATA  FILE  < , 


QO  TO  (702*802), NAP 
79?  CONTINUE 

6 

JTHETA  ■ I THETA  - I TC 
ITC  * 3 

120  JTHETA  ■ JTHETA  ♦ 1 
ITC  ■ ITC  ♦ 1 
NPTSS  t NB9PTSMTC) 

DO  121  J9»t,NPTSS 
111  DAtA(J9)  8 0ATS8(ITC, J9> 

CALL  SP30<  JTHETA  ; SHAD2  ,X 
C 
C 

I F ( JTHETA  ..T.  ITHETA  ) QO  TO  120 
C 

992  CONTINUE 
C 

JTHETA  * ITHETA  - ITC 
ITC  ■ (J 
C 

Xp  AR ( 4 ) • 3.0 
YPAR(4)  » 3.0 
XPAR ( ® ) • 9 • 1 
DO  TO  (150.152)  , NaP 
150  IF  (NOPlOT  ,lT.  3)  QO  TO  151 
XPAR ( 7 ) • 16 1 
GO  TO  156 


1 2 v 2H  ) > 


) 
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n r. 


l5l  CONTINUE 

XPAR<  7>  * 1. 

yPAR(7)  * 2 ,5 
GO  Tr)  156 

1J2  GO  TO  (153.154,  155)  .NOPLOT 

153  CONTINUE 
XPAR(7)  a 16. 

YP AR( 7 ) * 3-5 
GO  TO  156 

154  CONTINUE 

YP  AR ( 7 ) « l '.5 
GO  TO  156 

155  CONTINUE 
YPAR( 7)  x 2.5 

156  CONTINUE 

140  JThETA  = JTHiTA  ♦ 1 
WTmeTa  = JTheTa 

I TC  ■ ITC  ♦ 1 
C 

DO  141  II  * 1,5 

141  DTHETA(M)  ■ MEAOR(ITC.II) 

DO  142  ii=1,8 

1 1 = 5 ♦ I I 

14?  pT T A ( II)  s TRaIL(  ITC,  1 I ) 

Yp  A R ( 5 ) * 17," 

C 

CAt-L  NuM9E*  (HThEtA,  <'  , XP  A*,  YPaR  > 
C 

Xp  ar ( 5 I * 16, r 
yP Ar ( 7 ) = X 9 AR ( 7 ) ♦ .5 

y P AR  j 7 j , Y®AR(7)  ♦ C"?35 
JRITE  (6,33  ;>  HTHETa,  PTHETa 

C 

YP  A R ( 7 ) * <P  AR  < 7 > - .,5 
ypAR ( 7 j s Y?AR ( 7 > ♦ L . 5 
C 

ir<  JTHETA  . _T.  ITHEta  > Go  TO  140 

c 

850  CONTINUE 

c 

1F<  1 r 1 L6  .lT.  NFII.es  > GO  TO  25 
U 


CALL  ST  or Y 
r ALL  STD8Y 
CALL  Ex  I T 
GO  Tf)  5 
C 

PN’) 

«LOC<  DATA 

rO^MON  /9L3C<4/  XPaR(0),  YPaR(8> 


a 
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ao 

at 

mo 

a? 


j i 

v 

aa 


a? 


!i 
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M?i  5"!  i:*:  «:*:  Wi  5:8:  i!:*:  8>8:  H±  8:1 

6ND 

SUBROUTINE  S*3D  ( 1THETA  , SHADOW  *X  ) 
COMNON/ELOCKl/NRTS.NPTSSi lTCiKAY»DELTA¥ilATA854Q) 
COMMON  /8L3C<2/  XU • YL«  YU.  TltL0(H» 

COMMON  /BLOCKS/  NOPLOT,  aKAY»  NAt 
COMMON  /«l3C<4/  XPaR<  8 ) . VPaR<B> 


DIMENSION 


X<600>  , 


Y Y ( BOO ) 


i SHADOW ( BOO ) 


TTHETA  ■ ITHETA  - 1 

ir<  ITC  .NS . 1 > GO  TO  40 

ll  ■ NPTSS  ♦ 1 

L2  > NPTf  ♦ !0 

oo  2j  L « 1.1-2 


A2  « L - 1 
X(L  > ■ A2  • 
SHADOM(U)  • 
CONTINUE 
NOPLOT  > N3PL0T 
IF  (NOPLOT  ,NE. 
WRITS  < 6 » 1 0 3 > 
FORMAT  (llA4» 

continue 

80  TO  (23.311 


3.01 
DATA (L ) 


♦ rTRETA  • DELTAV 


♦ 1 

1)  flO  TO  22 
title 


nap 


G°  TO  <26.27,28,  27,29),  NOPfOT 

XP*R ( 4 ) * 1 '0 . 0 

YP*R(4)  ■ 2),0 

GO  TO  36 

yPaR(3)  > 10.5 

GO  T0  36 

XPAR(3>  * 16  * r 

YPAR(3)  ■ 0.5 

XPaR(4)  ■l3r.,T 

YPAR ( 4 I >20.3 

GO  TO  56 

CALL  STDS Y 

YP AR ( 3 ) t 0.5 


YP*R( 4) 
YPaR ( 4 ) 
Xp A R < 7 ) 
YP*R ( 7 ) 
YP  *R ( 8 ) 
NOPLOT  * 
00  TO  21 


1*3 

1.3 
12. 
3.1 

3.3 


60  TO  <26.33.34,35),  NOPLOT 
YPAR ( 3 ) 4 1 ' , 5 


jO  TO  26 
YPAR (3)  i 
GO  TO  ?6 


IC.,5 


/ 

/ 


, DAT  AC  t600  ) 
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35  CALL  STD8Y 

YPAR<3)  * ,5 

XP*R(4)  « 1 • ' 

YPA*<4)  ■ 1. 

*PAP(7)  • 12." 

YPAR(7)  • .1 

*P ar ( 0 ) * .3 

NOPLOT  s 1 
<50  T 0 21 
C 
C 

36  CONTINUE 

LPtS  ■ NPTSS  - 1 

0 

CALL  LINE  < X.  SHADOw  , LPTS.  XPAR 

no  3/  L * Ll.  L2 

SHADOW(L)  * 3. 

a2  * l - 1 

X ( L ) * A2  * J.Ll 

30  CONTINUE 
return 

c 

40  CONTINUE 

L 2 ' NPTS  ♦ 1 

00  41  u , 1,  L 2 

X ( L ) s X ( L ) ♦ FKAY*0.'l 

41  CONTINUE 
IRJJ  * 0 
!R  * 0 

DELTA  « FTHETA  • DELTAY 
50  CONTINUE 
ICTJ  . r 
ICTK  « P 
IR  • IR  ♦ i 

DAtAC(Ir)  « DaTa(IR)  * D6*-Ta 
I R 1 3 JR  ♦ KAY 

IF  ( DATAC(IR)  ,LT.  SHADOW(lRl)  ) 
ICTK  r 0 
IRJJ  s IR 

100  I CT*  3 I ctx  ♦ i 

YY< IR>  3 DAT  AC  ^ IR5 
RHADOW(IR)  = Y Y ( 1 R ) 

I F ( IR  .QE.  NPTSS)  GO  TO  6q 
IR  » IR  ♦ 1 

0AtAC(IR)  * DATAllR)  ♦ delta 

I R 1 3 I R ♦ KAy 

IF  ( DATAC(IR)  ,GE.  SHADOW(IRI)  ) 
60  ICTJ  r ICTJ  ♦ 1 

If  ( ICTJ  .Eq.  i .anD.  ICTK  .Gt. 
GO  T0  R1 

TO  IRADJ  * IRJJ  - 1 
DO  0 1 UK  * 1,  ICTK 


VPAR) 


GO  TO  60 


GO  TO  100 
1 ) Gq  TO  7 
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IJK1  P IR  ♦ KAY 
YY<  UK)  « VY<  I JKt  > 

1 TTJKT  * >fT I JK * y 

10  CONTINUE 

LFTS  . ICTK  - x 
CALL  LINE  * *,  YY  . lPTSi  XP|R,  YPaR 

00  90  UK  * 1 # ICTK 

Al  ■ IJK-1  ♦ (ITC  - 1)*KAY 

ttuk)  ■ -Ar**”5Tm  

to  cONTlNUE 

fl  CONTINUE 

1 F ( IR  .LT.‘  NPTSS)  GO  TO 
QO  TO  120 

110  IR1  ■ IR  ♦ K*y 

iwADWTm-T'SHADovti*rr 


ISO 

QO  TO  50 

RETURN 

END 

symdef 

BLOCK 

daTain 

INPJT 

309 

1 

PREVIOUS 

DCKi 

DDK 

1ST 

DXVIIN 

B5S 
BSS 
USE 
1 SAVE 
lda 

STA 

“HUE 

GSIVOS 

RTD 

zero 

FA.DCW 

ZERO 

STATR 

MME 

GEROAD 

lda 

STATR 

.. 

“ANA 

*3‘)7A0000000 

CMRA 

oooooos 

tze 

EOF 

lda 

*0#  dl 

TRA 

R5TJRN 

Mr 

lda 

* A*  OL 

RfiYORN  ST A 

ISOF 

return 

DaTaIN 

PA 

BCI 

1.  '3',008 

5T#TR 

BSS 

2 

06|S 

I0TD 

IMOAy.309 

Oft 

BSS 

1 

END 

3 

1 

6 7 ' u 

1 
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3. 2. 2. 3. 3 Subroutines  Called.  The  following  plot  routines 
are  called  from  subroutine  SP3D: 

1.  STDBY 

2.  LINE 

3. 2. 2. 3. 4 Calling  Subroutines.  Subroutine  SP3D  is  called  by 
the  executive  routine. 

3. 2. 2. 4 Listing 

A complete  listing  of  subroutine  SP3D  is  contained  in  the 
following  pages. 
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14.764 


SUBROUTINE  SP30<  1 THETA  .SHADOW  .<  ) 

co«'iov/auorKi/NPTs.NPT?s,  i tc.kay. delta y,  oat  a (543 > 
COMMON  /OL0CK2/  XU.  YL.  YU,  T X TUE  Ct.1  > 

COMMON  /OLOCK3/  N0pLOT,  F K A Y , >i*P 
COMMON  /nL0CK4/  XP4R(6>,  YPAR(P) 

dimension  x t ->o p > , YYfjno)  ,SHAnow(6iu> 

PTHbTA  • 1 7HF  T A - 1 

I F ( ! TC  .NS,  1 ) GO  to  40 

LI  * UPTSS  ♦ 1 

L 2 = NPTS  ♦ 10 

DO  20  L = j ,12 

A2  * L - 1 

x i l ) * a?  » n.n 

SHADOW ( L ) = DATA(L>  ♦ rTNfeTA  * DFLTAY 

20  CONTINUE 

NOPLOT  * NOPLOT  ♦ 1 

21  IP  (MOPLOT  .ME,  1)  GO  TO  22 
WHITE  <6.1nCD>  TITLP 

loon  FORMAT  ( 1 1 A 4 ) 

22  CONTINUE 

GO  TO  (23,01)  , NAP 

23  GO  TO  (26,27,2s*  27,29),  NOPlOT 

26  XPaRI a ) * ton , n 
yp ar ( 4 > = 20. n 
GO  TO  Oft 

27  Y P A R ( 3 ) * 10,5 

G^  to  7fe 

2s  *PAR<3>  * 16.0 

Y P A R ( 3 ) 1 0 . *5 

X P A R ( 4 ) *100.  U 
YP  A W ( 4 ) *20.0 

r,o  n 36 

29  CALL  STDRT 
YPA  R ( 3 ) * 0,5 

X P A H ( 4 ) * l.n 

VPAR ( 4 ) * t , n 
X°  a R ( 7 ) * ’2.0 

Y p A R ( 7 ) = ri.l 

X P A A ( ,» ) 1 n . 3 

NOPlOT  s 1 

G J TO  21 

31  GO  TO  (26. 33. 3<>.  3a),  NOPlOT 
3 ‘ Y a A R ( 3 ) s 111.  5 

GO  To  ?6 

34  YP  Ari  ( 3 I « CO.P 

30  TO  00 

30  CALL  6TDPY 

YPA  ((3)  * o.ij 


, C A T A c < 6 11  0 ) 
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XPARMl  3 1.0 

YPARC4)  * 1.0 

X»AR(7>  s 12.0 
YPAR(7>  • O.i 

xP aR ( 8 ) * 0.3 

NOPLOT  » 1 
fit)  TO  ?1 

r 

r 

Jp  CONTINUE 

LPTS  * NPTRS  - 1 
r 

call  l?np  ( x,  shadow  , lpts,  vpapj,  yoA-n 

no  3p  L = Ll»  L? 

SHAUOntL)  * 0. 

A2  s L - 1 
X ( L ) S A?  * 0.01 
Jo  CONTINUE 
Pt  T JPN 
r 

4i  CONTI  NLIfc 

* NPTS  ♦ 10 
DO  4i  L = 1*  L 2 

V ( L ) * X ( L ) ♦ rKA Y*0  . Ol 
41  continue 
IRJJ  * 0 
I R *0 

DELTA  s F T i’E  t A * JPLTAY 

CONTINUE 

ICTJ  s 0 

I C T K S 0 

IR  s IP  ♦ 1 

II A T \ C ( T R ) 3 D A T A ( IP)  ♦ IiFLTa 
I R 1 = IR  ♦ HAT 

ir  ( JATAO(tP)  , l T . SHMJCWdRl)  ) ijn  ”0  on 
ICTK  * 0 

n jj  * n 

1 jo  I c T < : ICTK  ♦ 1 

v Y ( [P>  3 J A T AC< Ip) 
c i a j n » ( i° ) * yy(TR) 

I r < ik  , Cl.  mptso  go  to  p* 

Ik  s i»  ♦ i 

D \ T A " { JR)  r D A T A f I P ) ♦ I)f  LT  M 
HI  = TK  ♦ kA  Y 

I v [ UaTACCIR)  ,cw.  SHADOW!  HD  ) ii°  TO  1% 

PI  ICTJ  s ICTJ  ♦ 1 

IP  ( ICTJ  .EC,  1 .AND.  ICTK  ..JT,  i , Cfl  p 70 
C,  > T"  vi 

M HOJ  * IPJJ  - 1 

D J ’J"  UK  a 1,  I CTrA. 

IJK1  s t P ♦ *AY 
YY  ( I IK  > s YY  ( I JK1  ) 
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X ( I JK  ) 3 

X(  I JK1  ) 

CONTINUE 

L»T3  • JCTK 

- 1 

CALL  LINE  ( 

*#  i Y 

# LETS.  XPAW 

HQ  9f  IJK  z 

1 , I Ctk 

A 1 3 IJK-1  ♦ (ITC  - l)«k'AV 

X( I JK)  « AT  • n.ni 
9 'I  CONTINUE 
91  CONTINUE 

I T ( IN  .LT.  npts^j  un  T 0 11U 
GO  to  i2n 

Tin  INI  = I«  ♦ K 4 Y 

SHAOn*<  IB)  3 S'IAnOW(  INI  ) 

GO  TO  r-0 
12H  Bf-Tjy:g 
c -n 

f -O’DS  Or  N'  mohy  I'SPLI  NV  THIS  COMPILATION 


Vi'A  N ) 


jL 


3.2.3  Computer  Program  Subroutine  DATAIN 

Subroutine  DATAIN  is  written  in  GE  Assembly  Language  for  use 
uith  program  SP3D. 

Description  of  Subroutine  DATAIN 

The  standard  magnetic  tape  record  length  for  General  Dynamics 
radar  range  data  is  1852  BCD  characters.  This  record  length  ex- 
ceeds the  allowable  length  for  a FORTRAN  read  in  GE  FORTRAN  IV 
language.  DATAIN  was  written  to  allow  data  with  this  record  length 
to  be  read  from  magnetic  tape  and  stored  in  the  array  INDAT . 


3. 2. 3. 2 Interfaces 

3. 2. 3. 2.1  Input . Input  to  DATAIN  consists  of  data  contained 
on  magnetic  tape. 

3. 2. 3. 2. 2 Output . Data  read  from  magnetic  tape  are  placed 
in  the  array  INDAT . 

3. 2. 3. 3 Listing 

A listing  of  DATAIN  may  be  found  in  the  following  pages. 
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1 

i3!3T 

BECAV J 1. HANCOCK 
LSTOU. STAB. DECK# 

.65121104^063# TAPEIN 
SYMTaB 

1 

tlHtTS 

05 » 2 ~ * 1 . 5K 

1 

rrmfl 

C*.H.-.3ECAVUJ1^0TAPIN 

Symoef 

Block 

DAT  A 1 N 

BLANK  COMMON 

I NDAT 

BSS 

309 

buffer  area 

ipef 

ISS 

1 

CHAR/WORD  XMITTAL  STATUS 

BUT* 

BSS 

2 

STATUS  RETURN  WORD 

IEM 

BSS 

1 

ERROR  RETURN  TO  CALLING  PROGRAM 

OSE 

PREVIOUS 

DATAlN 

SAVE 

ENTRY  POINT 

UDA 

DCWl 

STA 

DCW 

1,0  A 

■ •2 

STA 

STATR 

mme 

geinos 

btd 

ZERO 

fa.dcw 

FILE  CODE  WORD.  DATA  CONTROL  WORD 

ZERO 

STaTR 

STATUS  RETURN  WORD 

MME 

GEROAO 

ldaq 

STATR 

STAfl 

STATW 

A^A 

*g07  ’ 0 r'  w , DU 

TZE 

ERRF 

NO  ERRORS  DETECTED  BY  TAPE  CONTR 

C^Pa 

■ 00400C-*3*DU 

tze 

EOF 

END  OF  FILE  DETECTEB 

cmpa 

*00300 oj, DU 

tze 

DALRT 

DATA  ALERT  DETECTED 

UDA 

*4,01 

TRA 

Errf 

unknown  error  detected 

eor 

LOA 

«1.0L 

end  of  file 

EX|t 

STA 

I ERR 

TRA 

RTURN 

dalrt 

LOA 

STATR 

data  alert 

ana 

,0^077  j.DU 

Cmpa 

■ 000  *2 ' 3 # DU 

TFST  FOR  BLANK  TAPE  ON  READ 

TNZ 

PCK 

LOA 

*lb , D* 

TRA 

EXIT 

pck 

Av  A 

■ 0°010  0 » D U 

TNZ 

LATPC 

LOA 

*2,  r)L 

longitudinal  parity  check 

TRA 

ERRF 

LATPC 

LOA 

■3,  DL 

lateral  parity  check 

ERRF 

STA 

I ERR 

ANQ 

,0707777, DL 

TEST  RECORD  LENGTH  READ 

STQ 

IPEF 

CHAR/WORD  REMAINING  TO  XFER 

TZE 

TEST3 

LLS 

21 

asnumber  of  char  in  last  word 

ORS 

21 

QsNUMBER  OF  WORDS  NflT  XM I TTED 

G*PO 

• 1 » DL 

39 


TZE 

SREC 

Q=1IZER0«1 

TNC 

CaRck 

Q<1 1 CARRYaO 

LDQ 

«2P,D- 

short  rec-  more  than  i word  defective 

TRA 

ENDE 

carck 

CMP  A 

■ 2.DL 

lda 

I ERR 

TNC 

SREC 

A<2f  CARRYsO 

TEST3 

Cmpa 

*3  * DL 

TNZ 

chtl 

A NOT  * 3JZERO  = 0 

LDA 

■ o.dl 

sta 

I ERR 

TRA 

chtl 

SREC 

L°Q 

■10. DL 

SHORT  RECoRD-L A9T  WORD  DEFECTIVE 

ende 

ASQ 

I ERR 

COMBINE  REC.  lENQ,  TEST  WITH  IOC  STAT. 

chtl 

LDXO 

■ O.DU 

CHARACTER  TRANSLATE  ♦ AND  « SIGNS 

tJWoRO 

enpxo 

■309, OJ 

BEGINNING  OF  WORD  L0OP 

TZE 

RTURN 

LDA 

INDAT,  : 

Xu  IS  INDEX  REGISTER 

LPX1 

• 6, DU 

IDO 

■ 07777777777'!  , 

TESTC 

NOP 

BEGINNING  OP  cHaR,  LOOP 

CMK 

■013. Il 

test  right  most  char  FOR  ■ 

TZE 

EQUAL 

Bmk 

■032, Ol 

TEST  RIGHT  MOST  CHAR  FOR  ♦ 

TZE 

PLUS 

ROTaT 

ALR 

6 

83X1 

*1 , DU 

TNZ 

TESTC 

END  OF  CHAR.  LOOP 

8TA 

Indat.  ' 

ADXO 

■ l.OU 

TRA 

NWORO 

END  OF  WORD  LOOP 

equal 

era 

■ 0:0',066.DL 

CORRECT  : SIGN 

t*a 

rotat 

PLUS 

ERA 

«O00n052,DL 

CORRECT  ♦ SIGN 

TRA 

rotat 

RTURN 

RETURN 

DaTAIN 

RETURN  TO  CALLING  PROGRAM 

FA 

BC ! 

1 , 00 '01 3 

STATK  BBSS  2 

DCWl  tOTD  I N D A T » 3 'J  9 BUFFER  ARRAY.  NUMBER  OF  WORDS  XMITTED 

DCW  BSS  1 

e*jo 

* ENDjOB 
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SECTION  4 


TEST  DESCRIPTION 


A test  problem  was  run  on  the  GE  635/645  computer  for  the 
purposes  of  debugging  computer  program  DISCRM.  A description  of 
the  test  problem  is  presented  in  the  following  paragraphs. 


4 . 1 INPUT  DATA 

A listing  of  the  values  of  the  variables  read  from  card 
input  is  found  below.  The  format  of  the  card  input  data  and 
the  definition  of  the  variables  may  be  found  in  Section  3. 2. 1.3. 

CARD  1 


VARIABLE 

NFILES 

NFSKP 

NRPS 

NSWPLT 

NAP 

KAY 

YTOP 

CARD  2 

VARIABLE 

IFSKP(l) 

CARD  3 

VARIABLE 

TITLE 


VALUE 

3 

1 

6 

70 

0 

6 


0.0 


VALUE 

1 


VALUE 


SP3D  Test  Tape 


41 


A test  tape  was  generated  for  the  purpose  of  debugging  this 
program.  The  tape  format  is  described  in  Section  3.1.4.  The  tape 
contains  3 files;  two  of  which  contain  data.  It  is  standard  practice 
to  place  an  end-of-file  mark  on  magnetic  tapes  produced  on  the  radar 
range  at  the  Fort  Worth  Operation,  therefore,  this  end-of-file  mark 
must  always  be  skipped  to  reach  the  data  files. 


4.2  OUTPUT  DATA 

The  output  for  the  sample  problem  may  be  found  in  the  following 
pages.  After  bypassing  the  end-of-file  mark,  the  header  and  trailer 
information  of  the  first  record  of  each  sweep  is  printed  as  it  is 
read.  A second  listing  identical  to  the  first  but  produces  as  the 
data  are  being  plotted  follows  the  first  listing.  A plot  of  the 
data  produces  on  the  RADC  plotter  is  not  available  due  to  plotter 
problems,  however,  a plot  of  the  second  data  file  as  produced  at 
General  Dynamics  is  provided. 
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PILE 
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-P'l OJO 

4 

|OjO0 

no  , Oil" 

0 „ 1 5 I/  1 

SP3D 

tAPE 

TC.ST 

SWEEP! 

2 
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45nS 

1 24o 

" l n 6 / a i 

-OO'jOOO 
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SECTION 


1 


SCOPE 


This  specification  establishes  the  requirements  for  com- 
plete identification  and  acceptance  of  the  computer  program 
to  be  formally  accepted  by  the  procuring  agency.  EDP  program 
DISCRM  was  originally  written  by  the  Convair  Aerospace 
Division  of  General  Dynamics  for  use  with  an  IBM  360  compu- 
ter system  under  Contract  F30602-69-C-0164 ; however,  the 
necessary  changes  have  been  incorporated  to  make  the  program 
compatible  with  the  GE  634/645  computer  system  at  RADC.  This 
documentation  has  been  prepared  in  accordance  with  RADC  Com- 
puter Program  Detail  Specification,  28  January  1968. 
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SECTION  2 


APPLICABLE  DOCUMENTS 


The  documents  of  exact  issue  shown,  form  a part  of  this 
specification  to  the  extent  specified  herein.  In  the  event 
of  conflict  between  documents  referenced  here  and  the  contents 
of  Sections  3,  4 and  5,  the  detailed  contents  of  Sections  3 
through  5 shall  be  considered  as  superceding  requirements. 

CE-600  Line  FORTRAN  IV  CPB-1006G 

GE-600  Line  FORTRAN  IV 

Subroutine  Libraries  CPB-1620 

GE-600  Line  General  Loader  CPB-1008F 

GE-600  Line  System  Editor  CPB-1138C 
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SECTION 


3 


REQUIREMENTS 


Computer  program  DISCRM  was  developed  for  the  purpose 
of  extracting  discriminant  data  from  Equivalence  Class  data 
made  available  from  computer  program  SPECT.  The  Equivalence 
Class  Method  of  compactly  and  efficiently  storing  radar 
signature  data  is  described  in  "Radar  Signature  Investiga- 
tion Vol.  II  - Target  Classification",  RADC-TR-70-257 . 

3.1  CP  CHARACTERISTICS 

Computer  program  DISCRM  extracts  three  primary  discri- 
minants from  the  Equivalence  Class  data.  These  include  (1) 
Equivalence  Class  Category,  i.e.,  number  of  significant 
peaks  in  a signature,  (2)  maximum  target  radar  cross  section 
in  the  signature  and  (3)  maximum  separation  between  signi- 
ficant peaks  in  the  signature.  These  discriminants  repre- 
sent a measure  of  target  complexity,  target  size  and  target 
length  respectively.  Computer  program  DISCRM,  which  con- 
sists of  an  executive  routine  and  subroutine  OUTPUT,  is  de- 
scribed in  detail  in  the  following  paragraphs. 

3.1.1  CP  Flow  Chart 

Figure  1 depicts  the  overall  flow  of  the  CP. 

3.1.2  CP  Timing  and  Sequencing 

Run  tirm*  for  the  sample  problem  was  approximately  0.78 
minutes . 


3.1.3  Storage  Allocation 

26K  words  of  memory  were  required  to  load  DISCRM. 

3.1.4  Data  Base  Characteristics 

Card  input  data  containing  equivalence  class  information 
is  card  output  of  computer  program  SPECT. 

3.2  DISCRM  SUBROUTINE  CHARACTERISTICS 

This  paragraph  contains  the  technical  description  of 
the  computer  program  subroutines  identified  in  paragraph 
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FIGURE  1 OVERALL  VIEW  OF  DISCRM 
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3.1  of  this  specification.  The  instruction  listings  con- 
tained herein  by  inclusion  or  reference  specify  the  exact 
configuration  of  DISCRM.  DISCRM  is  written  in  FORTRAN  IV 
language  for  use  with  the  GE  635/645  computer  system. 

3.2.1  Executive  Routine 

The  executive  routine  of  DISCRM  is  responsible  for  (1) 
reading  and  testing  card  input  data,  (2)  forming  the  dis- 
criminant data  and  (3)  transferring  output  data  to  subrou- 
tine OUTPUT. 

3. 2. 1.1  Description  of  Executive  Routine 

The  user  of  DISCRM  has  the  ability,  through  card  input 
data,  to  (1)  select  the  target  region  from  which  discrim- 
inants are  formed  and  (2)  to  select  the  dynamic  range  of 
the  discriminants.  The  value  obtained  by  subtracting  the 
variable  DBDOWN  (expressed  in  dB)  from  the  maximum  peak  in 
a radar  signature  expresses  the  lower  bound  below  which 
peaks  are  not  to  be  considered.  The  variables  RLOW  and 
RHIGH  express  the  minimum  and  maximum  range  respectively 
that  is  to  be  considered  in  obtaining  the  discriminants  from 
a signature.  RLOW  and  RHIGH  are  expressed  in  inches  rela- 
tive to  the  position  of  the  OdB  radar  cross  section  refer- 
ence. These  variables  are  illustrated  in  Figure  2. 

The  discriminants  extracted  from  the  target  signature 
data  are  (1)  EQCL;  the  number  of  significant  peaks  in  a 
signature,  (2)  SIGMAX;  the  maximum  target  radar  cross  section 
in  the  signature  and  (3)  DLRMAX;  the  maximum  separation  be- 
tween peaks  in  the  signature.  The  procedure  by  which  these 
discriminants  are  formed  is  shown  in  Figure  2.  These  dis- 
criminants are  formed  for  every  polarization  of  interest. 

3.2. 1.2  Flow  Chart 

A flow  chart  of  the  executive  routine  is  found  in  the 
following  pages. 

3.2. 1.3  Interfaces 

3.2. 1.3.1  Input  Data.  Input  data  is  entered  via  punch- 
ed cards  described  in  the  following  paragraphs. 
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CARD  1 


CARD  2 


CARD  3 


CARD  4 


CARD  5 


VARIABLE 

DEFINITION 

COLUMNS 

DBDOWN 

Dynamic  range  of  data  to 
be  considered 

1-10 

RLOW 

Minimum  range  (inches) 

11-20 

RHIGH 

Maximum  range  (inches) 

21-30 

TGTID 

Target  identification 

1-48 

FREQ 

Measurement  frequency  (GHz) 

49-55 

NPOL 

Number  of  polarizations 

56-60 

NBRTG 

Target  number 

61-66 

NWDS 

Last  point  of  search  for 
peaks 

1-6 

THOLD 

Threshold  value 

7-16 

IRO 

First  point  of  search  for 
peaks 

17-26 

THINC 

Aspect  increment  of  data 
(deg) 

27-36 

DRANG 

No.  of  inches /digita 1 sample 

37-46 

POLID 

Polarization  identification 

1-12 

NASP 

Number  of  aspect  angles 

13-18 

THETS 

First  aspect  angle  (deg) 

19-25 

THETE 

Last  aspect  angle  (deg) 

26-32 

NVOID 

No.  of  void  regions  in  an 
otherwise  continuous  aspect 
sector 

33-36 

VOIDL(I) 

First  aspect  angle  of  void 
region  (I) 

1-5, 

11-15. 

VOIDH(I)  I.ast  aspect  angle  of  void 

region  (I) 

1=1,  NVOID 

6-10, 

16-20. 
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**CARD 

6 

THETA 

Aspect  angle 

COLUMNS 

1-10 

ICK 

Void  region  indicator 

=0;  in  void  region 
■1;  not  in  void  region 

11-20 

NPN 

Number  of  peaks  and  nulls 

21-30 

EC 

Number  of  peaks 

31-40 

IJPOL 

Polarization  number 

41-50 

**CARD 

7 + 

INPN(I) 

Peak/null  indicator 

=1;  Null 
=2 ; Peak 

2,15.  . 

RR(I) 

Location  of  peak/null 
(inches ) 

3-8, 

16-21. 

SS(1) 

Magnitude  of  peak/null 
(dBsm) 

9-13, 

22-26. 

1=1,  NPN 

* Card  5 is  not  needed  if  NVOID  = 0 

+ May  require  more  than  one  card  if  NPN>5. 

**  Cards  6 and  7+  are  repeated  for  each  aspect  angle. 
Cards  2 through  N are  punched  card  output  of  computer 
program  SPECT. 
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3.2. 1.3.2  Output  Data.  Discriminant  data  is  trans- 
ferred to  subroutine  OUTPUT  for  output. 

3. 2. 1.3. 3 Subroutine  Called.  Subroutine  OUTPUT  is 
called  by  the  executive  routine. 

3.  2 . 1 . 4 Lis  ting 

A listing  of  the  executive  routine  is  found  in  the 
following  pages. 

3.3.1  Computer  Program  Subroutine  OUTPUT 

Subroutine  OUTPUT  has  the  function  of  printing  and 
punching  onto  cards  the  discriminant  data.  Subroutine 
OUTPUT  is  written  in  FORTRAN  IV  language  for  use  with  the 
GE  635/645  computer  system  at  RADC. 

3. 3. 1.1  Description  of  Subroutine  OUTPUT 

In  subroutine  OUTPUT,  the  discriminants  EQCL,  SIGMAX 
and  DLRMAX  are  printed  and  punched  onto  cards  for  each  as- 
pect angle  and  polarization  of  interest. 

3. 3. 1.2  Subroutine  OUTPUT  Flow  Chart 

A flow  chart  of  subroutine  OUTPUT  is  contained  in  the 
following  pages. 

3. 3. 1.3  Interfaces 

3. 3. 1.3.1  Input . Input  to  subroutine  OUTPUT  consists 
of  the  variables  in  common  blocks  1 and  4. 

3. 3. 1.3. 2 Output . The  output  data  is  described  below. 

CASE  1 : No.  of  polarizations  = 1 

CARD  1 VARIABLE 


THETA 

EQCL 

DLRMAX 

SIGMAX 

CARD  N 
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COLUMNS 

1-6 

11-15 

16-20 

21-25 


V 


J 


n o o 'i  o o no  o 


c tiscfm  1 

C ?s01pAM 

E X T P A r T DISCRIMINANTS  FROM  S IGI'aTL’BE  DATA 
COMUbK/vLCdKI/  TtfETA(4  ,2),  ECcL ( 4 OC , 2 ) , Dl»" Ay  l -0  ' . 2 ) . 

i s::gmax(u  ,2) 

COHKOS/F1.0CK2/  R(400,1  ,2)  . S(U0C,10,2) 

C0f1K0S/bL0cK3/  INPN(3  1 , BR(30),  SS(30),  KPN 

C0MK0N/fl0cK4/NP0L,MaSP( 3)  ,ID 
COMHOK/blOcK7/  TOT  I *)  ( 4 8 J ,roiio<3) 

C 

DIMENSION 

1 THFTS { ? ) , TH  DTE ( 3 } 

3 , VOioi(3)  . VOXd  H ( 3 > 


i;  continue 

read  (5.1  0)  pppOWN,  BLOW,  RHiGH 

10C3  FOFMAT ( 6F 1 . T 

READ  ( 5 , 1 ' 03  J TG IID, FREC, KP:L, DERTGT 
1 C 23  FORMATt  48M,p7.'\t5,I6  ) 

TD  = »pBTr,T*1.  r + 3 
25  cOKTlt»rE 
2:  rOVTlN'E 

WRITE  ( 6 # T 03T  TGTlD»FPEU»FPOl*!;ElRTGT,lD 
WRITf<  3,~  03)  rsT.ro,  Fi»EQ,KPOl,»BSTGT, Id 
7*73  FORMAT ( 48A 1,p-,2,x5,I«,  7h  F ,16) 

ID  = It  ♦ 

READ  (5,  1 ' 04  ) MWOS.THOLD, IRC, THI*IC, DRANG 
1 0 C 4 FORMAT.’  I6.fi  . ,110, 2p1  . ) 

WRITE  (6,'  OUT  NW3S.TH0Lp,lR:iTHINc#DR»Nf;*lD 
WRiTf( - 3,T  04)  NWpS.THOlp.lRC, THIN r, pRANG, Ip 
7Cw’U  FORMAT i io.pi  .1,i10,F  0.  i.p10.2,2:X,  7H  F ,16) 

DBtOKN  = A°S ( DCDOwN  j 

WRITE  (6,7  01)  DBOOWN,  RLOW,  RHIGH 

7;oi  format  (3  y cO''sideh  o rtt  rears  Less  than, f5,  1,2  h de?  po^N  A\p  -et 
IWeeN.F'.  •.  7H  AVp  ,F~,1,  8h  I K c H E S ) 


LP  = 1 

1 r { FP''  L .rE.  7 ) LP  = 2 

c 

c 

IP  a 

113  TP  = I'  ♦ 

IP  a I-  4-1 

HEAD  5,1  10)  POIID.NaSP  (IP  ) .Ti.FT  ' (IP  ) ,THETE  (Ip  ) ,N'V0ID 
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IClO  FORMAT  ( 3A-  , 16 , 2F 0 , I L ) 

1 4 1 VRTTE(-3»7  i T P0LTD>xSP(IP).THET5(IP}#THETE(Ip),NVOID«ID 
VRlTt  (6.7  1 T P0llD.N*SP(lP).ThETS(lP),THETE(lP),VV0lDiID 

70-10  FOrMSTi  TA  = ;i6,2J,7.  1 . 1 U . 3 ' x.  7H  P , l6  ) 

IF ( NVOID  .EU.  ) GO  TO  1 2 

REXD  (5.1  1lf(  V3IuI(J).VCIdK(J),J=1»NV0Xd  ) 

1011  FORMAT  ( 1 F 6 . ) 

GO  TO  ( 5 » f 0 , 7 ,8  ,9012NVOID 
SO  WRITE  (6.7  Ilf  (/OIDWJ),  ?0«>H  { J ) » J»1,HVOXd) 

W&ITeT  *3.7' 1 IT  (vblDttj). 

7C 1 1 FORMAT  ( 2F6.1,  54X.7H  P.I6) 

50  TO  1 1 2 

6C  WRITE  ( 6,  ^ 1 ?7^  { VOIDL  ( J ) » V02DH ( J ) , J*  1 » N VOID  ) 

WHiTE(-3,7  lit  (V OIdL(J).  V 0 1 p H ( J ) »J*1»NVOjp) 

2012  FORMAT J J4F6,  1,  U2X.7H  P.l6) 

GO  TO  1 1 2 

7;  WRITE  (6.7  1 3 J (VOlpLfJ),  VCIDH ( J ) , J*  1 , NVOJD  ) 

WRjTe(A3»7  1 3 T (VOlpLfj),  VOlpH( J ) » Ja 1 » N Vuip > 

7C13  FORMAT  ( 6F6.1,  3 X,7H  F.lO) 

GO  TO  112 

JBC  WRITF  (6,7  1*7  (VQXpLfj),  VOIDH ( J ) , J= 1 , K VOID ) 

WRiTf ( A 3 . 7 1 U t (VOlpL(J),  V0IDH( jy, J=1,UVOXp) 

7Q1U  FORMAT  ( 3F6.1,  18X.7H  P.lO) 

GO  TC  ’ 1 2 

90  WPlTF  ( 6. ' 157  (VOlpLfj) , VCIDH( J) . J=1.FVOjD) 

W R J T £ { '3,7  157  (VOlpl(j),  VOID*!  ( J ) » J = 1 » N VOIp  ) 

7015  FORMAT 1 F6.  1,  6_X,?H  P,l6) 

142  CONTINUE 
C 

NPTS  - SA3P(tF) 

C 

DO  185  Illr-I.N^TS 

READ  (5,1  2 J THSTA(III.IP) .ICK.MPK.EC 
I.IJPOt 

1020  FORMAT  ( FI  . j9X,I1.I1  ,F1  ,0,H0  ) 

WRITE  (6,1  217  THeTa(III,IP) ,ick,npn,ec,ijpol 

1021  FORMAT ( FI  ,1,2x1  ,F1  .1,10  ) 

C 

IF ( ICK  ,GT,  0 ) SO  TO  120 

IF  C'  III  ,EQ,  1 T SO  TO  125 

I F ( SCcUTII*  .IP)  .EC,  .1  GO  TO  125 

TO  1:5  LlL- 1.IEC 

F (III, I LL, VP)  « 8(111-  , L L L * J P ) 

115  S(TII, ILL, IP)  = S(III-  , LLL, IP ) 

EQCL  (III, IF}-  E2CL  fIII-1, IP) 

51  C-M  A X ( III , IP  j = SIGV.AX(III-1,IP) 

DLRMAX(III,Ip7-  DLRMRX{III-1,IP) 

GO  TO  17 

c 

120  IFUPN  ,GT.  0 ) SO  TO  130 

125  FQCL  (IIT'.IPI  * 0. 

126  CONTl'UE 
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c 

T30 

1930 

n 3 1 
c 

1?9 

c 

155 


157 
15  8 


159 

160 
C 


165 


1*6 

C 

170 

176 

C 

C 

180 

165 

C 

c 


SIGKAX(III.IP)  = THOLD 

GO  70  1 6 6 

READ  (5, 1035 V (I JPN { lT#RR (I) ,SS (I) ,I=1,NPN) 

FORMAT  ( ( 'X»  3 ( 1 1 # ?6  » ,F5.  ,1X))  ) 

WRITE  (6,  ‘031  , (INPN  ( 1 5 ,RR  (I)  , SS(I)  ,1=1#  KPS  J 
FORMAT(  ( X,5(I1,F6.1,F5.  ,1X))  ) 

IF ( EC  .LT.  1 . ) GO  TO  125 

CONTT'UF 
BTGPK  = 57  ( 1 J 

IF  ( VPK  .EQ.  1 ) GO  TO  5fi 
DO  15"  I = 2 , N P N 

IF  (S?(lT  .GT.  9IGPK  j BIGPK  = SS(I) 

CONTI: UE 
CONTI "UE 

BASF  = Blr:PK  - DiDOWN 
It,C  = 

DC  16  1=1, NPK 

I F ( IVPN(T)  . E . 2 ) GO  TO  160 
I F C 5 .s  ( I ) ,LT.  B\SE  ) GO  TO  16C 

IF  ( ( ? R ( 1 1 .OF.  SLOW)  .AND.  fRMl)  • IE . RHIGH  ))  GO  TO  1 5g 

GO  TO  16 

IEC  = I EC  ♦ 1 

R ( III . IEC , IP  J =RR(I) 

S ( III # IFC# IP  ) =SS(I) 

CONTI 'UE 


FQCI , III , IP  j = IEC 
I F ( IFC  .IT.  ) GO  TO  120 


JFAX  - 

SIGMAX  (Hi  ,IP  > = 
DO  16'  IK-1, 1 EC 
I F ( SI  III.IKiT) 
SIGVA>  IIIT, IP  > = 
JFAA  - IK 
CONTI'UE 
IF ( lvC  .IT.  2 ) 
DLRNa>'  ( II  J.  IP  ' = 
GO  TO  17 

dip::a>'(IIt,ip  • = 


5 ( 1 1 1 , 1,IP) 

,LE.  s i c; a x { in# ip ) ) go  to 

sdiMK.n  > 

GO  TO  16c 

P ( III#  IEC#  IP  ) * Mill#  1 # IP  ) 

0. 


6 ^ 


CONTI’  U E 
CONTI'  U? 


CONTI' UE 
CONTI'  UF 

I F ( 12  . L V , L?  ) GO  To  IT 
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o o 


270  CONTINUE 

C 

CALL  OUTPUT 

j:o  coitow 

GO  TO  I 

END 

SUBROUTINE  OUTPUT 

COMMOV/BLOcK  1/  THETA  ( 90  ,2).  EOC'l  ( “00, 2)  , DLHM  AX  ( 4 QQ . 2 ) , 

1 SIjMaXUG  ,2) 

C 

COMM  ON /BL0CK4/WP0L, HASP ( 3 ) , ID 

c 

NPTS  - K A S P ( 1 ) 

C 

C 

WRITE  (6,20  v.  ) 

2000  FORMAT  ( ///5  H THETA  eCV  dIRHXV  SJGMXV  ECH  dDRMXH  SjGHXV  ) 

C 

GO  TO  ( 10,20,20) ,NP0L 
C 

10  DO  12  1*1, NPTS 

Id  - To  + r 

WRITE (6, 2“  nJ  THETA(I.1)/E0CL(I»1)#DLRMAX(I,1),sIC.HAXU»  1 ) • id 
2C  1 0 FORMAT ( F 6 . I * F 5 . ! , 1 X , 7 ( 1 X , F 0 . 1 ) . uOX,  7H  P ,16) 

WRITE (4 3,  0 ;) THeTa (I. D »EQcL(I» 1 ) #DLRMAX(I, 1 ) , SIGflAX ( It  1 ) . ID 
1 P C 0 FCRMATf  FO.  l|iiX,3F5,  1,  4'x,  7H  P ,16) 

C 

12  CONTINUE 

PFTURN 


20  CONTINUE 

DO  3 i*1, NPTS 

ID  = ID  + 1 

WRITE f 6, 2r  20  y TH  DT  A ( 1 , 1 } ,EQCL(I#  1 > .DLRt1Ax(I,  1 ) ,SIGHAX(  I,  1 ) , 

1 EQCL(I»2) »DLEMAX(I,2) ,SIGMAX(I,2)  ilD 

2 J 20  FOR.mat(  FF,  1*^5.  1,  1X#2(  1X,P6.  1>,2x,F5t1,  1x,2(  ■ X . F6 , 1 ) , 1 rix , 7h 
1 .16) 

WRITE (43,  1010 ) THETA (I,  1 ) ,EQCL(I,  1 ) , DLRMAX (I,  1 ) ,SlGKAX(I,  1 ), 
i FQCL(I.2),DLHHAX(I,2),SIGHAX(I,2)«ID 

1310  FORMAT!  Fr,  i|-X,5r5,1,  26x,  7H  P ,16) 


C 

30  CONTINUE 
C 


C 

RETURN 

E’.’D 
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450  -52. r 200 

vert/vert  91 

0.0 


one  Jack 
1.0 
no. 

7 


0,51 


9,  "0 


1 


1 
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1 

122.6-52.8 

2 

135.9-21.0 

14  ,6»40,4 

2 

148.3-26,1 

1 

154.9,61.0 

2 

162.6-28 .6 

1 

164.7-46.7 

2 

166.3-42.2 

1 

171.3-53,2 

* 

7 3.C 

1 

1 

123.  1-52. 8 

2 

T36.5-21,6 

} 

14  ,0-40.6 

2 

1Ue.3-25,c 

15ff,4-5l.g 

2 

1 6 3 • 1-29.4 

1 

164.2-46.8 

*1 

c 

167.8-42, 1 

1 

170.8-53,6 

2.C 

7 3.0 

1 

1 

12**.  1-52 . 7 

2 

136.5-21.5 

* 

14  .b-41,5 

2 

148.8-27.  1 

1 

154.9,52.1 

2 

1 6 2 • 6"^ 1 • 

1 

16**2-46.3 

2 

167.6-43. 1 

1 

171.3-54,9 

3 , C 

7 3.0 

1 

1 

12176-51.1 

2 

136. 5-21.0 

14  .6-42.4 

2 

1u8. 8-27.4 

1 

154.9,52.3 

2 

16  1.  1-35.6 

1 

164.7-40.5 

167« 8-43.9 

1 

170.8-53,5 

4.0 

11  5.0 

1 

1 

122.6-54. 

2 

12g.2-4g.5 

1 

127,7-49,6 

2 

137.0-22,6 

1 

14  . 6*s>2  . a 

2 

149.3-29.3 

1 

154.9-52.7 

•7 

1 6 • 1-36*8 

1 

106  *2-47. u 

2 

‘ 68 • 3-4g . 1 

1 

l70.a-53. 6 

5.0 

' 

8 3.0 

1 

1 

124.  1-52.9 

2 

135.9-22.0 

14i. 1-43,5 

2 

1 47 . 7-30 , 3 

1 

i54. 4-- 3 , 3 

1 

157.C-53.3 

2 

1 6 -6-45.7 

1?  .3-53.9 

6*0 

8 3.0 

1 

1 

123.6-53.7 

2 

136. 5-21.0 

•* 

1 4 1, 1«44, 4 

2 

140.3-31,3 

1 

'54,4,53.9 

1 

1 6 2 • 6~5  3 • 

2 

167*  2*u9.6 

1 

1 69 • 6*5 3 , 8 

7.0 

1 

11  4.7 

1 

1 

125.2-54. 

2 

136.5-21,9 

> 

14  1, g,45 , 4 

2 

140.3-32," 

154,4,53,4 

1 

156.0-53. 9 

2 

I5g . 5-4? . 9 

* 

162, 1-53,4 

1 

1 66 . 2-S3 . 5 

2 

1 7 1 , 3 - 5 5 . 2 

1 

1 71 , 4-53 . g 

f * 

6 • 

7 ’.0 

1 

1 

125.2-52.7 

2 

l36,5-22.4 

142. 1-47.9 

2 

140.0-34,3 

1 

'54. 9-M.fi 

2 

159 . 5-4 1 . 6 

1 

1^9. 3-52.9 

9.0 

9 4.C 

1 

1 

125.2-52.8 

4- 

136.5-22.1 

J 

142.6-50.8 

2 

148.3-35,5 

* 

'54,9,-10.3 

2 

165. '-3B-6 

» 

16^*6—47.5 

7 

1 6 4 , *-4 6 . 2 

1 

109 . 3-53  , ’ 

10.0 

7 3.0 

1 

1 

1 2g . 2-53 . 

A 

13^.5-22,2 

142,1-45,6 

0 

4. 

l46.2-35," 

154,4,-0.7 

2 

159.5-35.2 

t 

1 6 8 • 9-53.0 

11,0 

9 4.7 

1 

1 

125, 7~54 , 4 

136.5-21,6 

14 ' . 1-43.8 

2 

140.3-32,- 

‘ 

5 3 , 9-i-  0 , 4 

2 

160.  '-55. 4 

1 

1 6 3 • ' — •♦8,8 

1 6-  • 7-46 . 0 

1 

169.8-53,0 

4 ^ * 

• < • - 

7 ?. 

1 

1 

127.2-53.2 

2 

1 3 6 . 5- 2 1 , 9 

14  . 6-42 , 7 

2 

140, 3-32, 6 

<• 

1 

154,4— u0»4 

2 

1 6 * • c” 33 . 5 

1 

169.3-52.9 

13.0 

7 

1 

1 

127,2-53. 

2 

1 3 6 . 5- 2 1 , 9 

•* 

14  .6-41.6 

2 

140.3-30," 

1 

152, 9-- 9.  1 

2 

16* • 1-32.3 

1 

1 68 • 3-34.7 

14.0 

8 3.- 

1 

1 

’26.2-53.1 

136. 5-21,7 

14  .6-41.8 

2 

'47.7-29,* 

4 

'5  ■ ,<j~  >0.8 

2 

1 

1 6 6 • 2* 33.4 

I7 1.3-53,6 

15.0 

4 

5 

1 

1 

127,2-52.2 

2 

136. 5-21,5 

14  .t-42.5 

2 

147,7-26.° 

4 

’53,4-52.3 

1 

153.9-52.5 

4. 

16  1.  1”^9, 1 

'66.7-53.3 

16.0 

* 

8 3,7 

1 

1 

12^.  7-t2 . 9 

4. 

137.  -21.0 

14  . 6-**5  * 5 

2 

140.8-25,9 

* 

' 5* , 9-52 . 8 

1 

153.9-53.5 

2 

162.  1-27.5 

* 

166.2-53.  R 
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17. C 

7 3 : 

1 

j 

1 

127.7-52.3 

A 

136.5-21.9 

■ 14  -.  1-45.7  2 

148.3-24,4 

1 

1 J3 , 9»5 1 , 9 

2 

161.  1-26.7 

* 

166.7-53. 1 

•* 

8 3 ,y 

1 

1 

126.2-53. 

2 

137.  -21.9 

: 14  .0-43.6  2 

148.8-22,9 

1 

153,4-50.5 

2 

’6  1 . 1-25.8 

1 

166.2-53.2 

: 174.4-53,8 

19.0 

- 

11  4,0 

1 

1 

121. 1-53.6 

1 

125.7-53.1 

2 136.5-20.8  1 

140.6-42,8 

2 

'47.7*21.4 

1 

153.4-48.2 

2 

16  .6-24.7 

166.7-52,9  1 

171,3-52,3 

2 

172.9*“9.0 

1 

175  . U— 51* . 7 

20.0 

1 

9 3.C 

1 

1 

125.2-53.7 

2 

137,  -21,6 

- 14  .0-40.4  2 

148.3-21,1 

1 

152.9.-4.0 

2 

16  1 .6-24.4 

1 

17  .3-53.8 

17  .8-53,1  1 

180 , 6-53 , 4 

21,0 

1 

8 3.C 

1 

1 

1 17.5-53.3 

T 

A 

136.5-21.7 

14  .0-36.5  2 

147,2-20,? 

1 

152.4.0.7 

2 

1 6 0 .6-24.6 

1 

178.  -54,0 

• 18.3.7-53.1 

22,0 

1 

3 4 , C 

1 

1 

117,5-53.3 

2 

136.5-21.4 

1 1 4 1 . 6-34 , 6 2 

147.2-20,3 

1 

152,4-44.4 

2 

1$0.  1-24.2 

1 

1*7.8-51.4 

2 169.3-49.7 

23,0 

15  6.0 

1 

1 

112.9-53. 

2 

1 14,4-51.7 

' 117.0-52.8  1 

1 17,5-53,0 

A 

13  .0-50.8 

1 

127.5-5^.7 

2 

137.  -21.2 

.1  1 4 2 , 5-34 , 9 2 

147,7-19,6 

* 

'52.9--5.5 

2 

i60.g-23 . 3 

1 

167.8-53.0 

lee. 0-53, 2 2 

173,4-47,4 

1 

175,4-52.9 

24.C 

13  5,0 

1 

1 

H5.Q-53.3 

T 

A 

1 3 6 . 2 1,0 

' 142.1-36.1  2 

147.7-20,  ' 

1 

'52. w-46*  6 

2 

1 60  • 6-22 . 5 

1 

169- 3-52.8 

17  .3-53.1  2 

172.4-47.5 

1 

■’77.0-52.9 

1 

•03. 4-5u.  1 

2 

1 0 2 , g-50.9 

“ 185.2-53,5 

25,0 

15  6 • ' 

1 

1 

1 1 3 . --5  3 . 7 

•7 

A 

121.1-51.0 

■*  123.  1-52,3  2 

124,7-50,9 

1 

127.2-51.9 

2 

137.5-71.5 

1 

141.5-35.4 

2 14g.3-l8.9  1 

152. 9-47.  • 

2 

V. 1-21. 8 

1 

17  • .9-53.  1 

1 

173.4-53.1 

< 1 8 . 1-53 . 4 2 

103.7-50,0 

4 

'86.2-54,  1 

26.0 

12  4.0 

1 

1 

111.9-52.6 

2 

137.5-21.3 

1 ^ # 0 • u 1 # 5 2 

147.7-19.2 

1 

152, 9.47. 5 

2 

' 60 . 6“2 1 . 6 

175.4-53,3 

' 18  .6-53.3  2 

183.  1-50,’’ 

1 86 . 2-52 . 8 

1 

192.4-52.9 

194.4-33. 1 

27.0 

19  8* ' 

1 

1 

112.3-52.Q 

II9.  -52,7 

’ 1 '9.5-53.0  2 

122.  1-50,- 

2 

"37,5-21, 1 

1 

139,5-41.4 

2 

147.7-  '8 • 6 

15  .3-43.4  2 

160.6-22,2 

2 

* 7 1 . 3-- 8 • 7 

1 

l7tt,lta>S4. 4 

175.5-52.9 

■»  176.0-50  . 3 1 

ipO. 5-53,7 

0 

181.6-5>2.9 

2 

183.7-5  . 

1 

187.2-52.5 

0 189. 4-5 1.3  1 

192.4-53,3 

2e.c 

14  6.0 

1 

1 

117.5-53. 

2 

123. 6-50 . 9 

120,2-51,9  2 

1 3e  . 0-20 , e 

1 

14  1.5-33.  1 

2 

140.3-10.4 

1 

151.0-41.4 

16  * 6"22 • 2 1 

1 7 6 • 0-52 , 9 

2 

'78.0*50.3 

182.  1-53 . 

182.6-53.0 

0 184.2-50.4  1 

186.7-53,  ' 

25  • 0 

14  6.C 

1 

1 

1 14,4-52.9 

2 

i 2 . -50.6 

- 12?. 1-51,7  2 

137.5-21,2 

• 

’42.1-33.6 

2 

14?, 7-  ‘9. 8 

1 

152.4-41.1 

“ 1 6 .1-23.2  1 

If  7 . 2-50 , 5 

A 

'7' .3-49.0 

1 

173.4-53. 

1 

181.6-53.0 

T 1 8 x • 7 — 5 1.3  1 

186.7-53, * 

30. C 

* 

14  6.0 

1 

1 

1 1 * .8-53. 6 

1 

1 15.4-53.5 

7 12  • o*5  1 ♦ 2 1 

123.6-52,8 

2 

126.2-51.4 

1 

127.7-52. 3 

2 

137.5-21,5 

• 14  .5-33.3  2 

147.7-20,2 

4 

•52.4.  3.0 

2 

1*0.  W#.f 

! 

168.9-53,9 

? 1 7 ‘.3-46.9  1 

174.4-53,4 

68 

V 



KJ  K?  '*J 


3 * , C * 11  4.C  . 1 

1 117,0-53.5  2 12  .6-51.5  • 122.6-52.2  2 137.5-21,0  1 *42.1-34.3 

2 147.7-21.9  1 151.0-44,3  ? Ifi  . 1-2**  ,7  1 If  6 • 2-53 1 ifl0,§*53.1 

1 172.9-53. 

32.0  11  4 ,c  1 

1 123.6-53.3  2 126.2-51.7  4 12b. 2-52,1  2 137.0-2  1,2  1 <4<-#  $-*0.  a 

2 147.2-22.3  1 152.4-47.5  2 159.C«24,6  1 164.7-52,9  1 I7O. 3-53. 6 

1 104.7-53.6 

33.0  • 13  5.C  1 

1 119.0-53.0  2 12  .6-52.4  ’ 123.1-53.2  1 125,7-53,1  2 *37,5-21,1 

1 140.6-4  .9  2 147.7-22.5  I5i. 0-45.7  2 159,5-25,7  1 7*52.9 

1 169. 3-52 . a 2 1 76 • -54.7  ' 17B. 0-53.5 

34.0  ' 6 3.0  1 

1 126.2-52.9  2 I3g.  -21.4  - lUg, 3.21.9  1 1S^-8-U1.^  2 159.5-26.2 

1 1 60 »7- 5 3. 3 

35.  C 1*  5,0  1 

1 119. 5-53.1  2 126. 2-50.6  " 127,7-51.1  2 13s, 0-20, o 1 141,^-32.0 

2 147.7-22.  1 152.4-40.0  2 15S.0-2G.0  2 170,3-49,'  * i73.4-53. 6 

3fi,r  12  5.:  1 

1 117.5-53.1  : 124.7-51.0  - 126.7-51.7  2 l3e.0-20,6  * 142,1-12.0 

2 147.7-21.2  1 151.0-43.7  2 159.0-25.7  1 165,7-53,3  1 16e.3-54.6 

2 i7C,3-49.8  1 172.4-53,1 

37, C 13  6.-  1 

2 12*. 1-51. 7 1 123.1-52.6  2 125.2-51.2  1 127.7-52,5  2 130.5-20.8 

1 142.  1-32.8  2 1*e.3-20.*  15  .8-«5,4  2 160.  1-25,2  1 *66.2""3.0 

2 167.8-5  .4  1 169*8-54.1  175.4-53.0 

38.0  ’ 17  6 . ' 1 

1 115.9-52.9  1 H2.I-52.7  2 130.5-20.0  1 l42,1-36,5  ? 147.7*20.3 

1 151,8-45.3  2 I5g . -24,0  1c-»6**49.9  2 i65 . 2-4e  , ' 1 169.3-5  1.5 

1 173,0-53.7  1 101.6-53.3  1 183,7-51.6  1 186*2-52,9  1 '87.2-33.1 

2 *09.8-5  . 1 192.9-53.1 

39.  C 11  4,0  1 

1 114.4-53.1  1 121.0-53.0  2 123.2-50,5  2 139.0-20.?  ? *40.9-*9,3 

1 UC.e-38.6  2 159.5-22.5  168.3-5  1.3  1 171.9-53,4  1 77. 0-33.1 

1 1 |2. 6-5  1 . 9 

40.0  12  5."  1 

1 loc. 3-52. 9 2 125.7-50.4  12s.  0-5  1.3  2 139.0-20,'.  * *42.6-’1.9 

2 140.3-19.2  I 151.3-37.4  ? 15?. 0-22,6  1 1f7. 8-5’, 2 2 *7  .3--7.5 

1 172.9-53.4  1 179.  -53.5 

4 * , 0 15  6."  1 

1 *17,3-0.1  2 124. 7-5". 3 O9. 3-50.2  2 139.0-20,3  1 ’42, 6-31. 3 

2 147.7-19.2  1 1 5 1 . P - *0.6  2 150.5-23.4  1 166.2-53,**  * *6?, 3-54,1 

2 160.6-49-9  1 171.0-52.7  7 173.0-49.0  1 177.0-52,0  * 102,1-53.0 

42. C 11  6.3  1 

139.5-71.  ' / l-g. 3—  *0.0  '5  .0-42,4  2 159,0-23,3  1 *62,6-51.1 

■ 64.2-48 .2  1 166.2-31.5  7 167.8-40.2  1 170,3-53,-  1 1 8 * . 6--  3.7 

*94.4-49.7 

40,  c * 12  5,:  1 

1 121.6-51.8  2 139.5-20,7  T I4e.3-20.fi  1 151.3-40,.  2 ’58.5-23.4 
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12-7.7-45.5 

125.3-49.0 

2 

I30,8-4g,0 

2 

" 4 7 , 2-  ' g • 1 

1 

i5*r , 0-«6 . 3 

2 

1 5 fl. 5-4  3.9 

1 6 . 6*^9  • 2 

2 

1 

1 66 . 2-5)  1 . 5 

2 

167.8-5  .3 

1 

171.3-32.9 

179.C.53.0 

2 

194.4-55,5 
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CASE  2 : No.  of  polarizations  = 2 


CARD  1 VARIABLE  COLUMNS 

THETA  1-6 

EQCL  (POL.  1)  11-15 

DLRMAX  (POL.  1)  16-20 

SIGMAX  (POL.  1)  21-25 

EQCL  (POL.  2)  26-30 

DLRMAX  (POL.  2)  31-35 

SIGMAX  (POL.  2)  36-40 


3. 3. 1.3. 3 Calling  Subroutine.  Subroutine  OUTPUT  is 
called  by  the  executive  routine. 

3. 3. 1.4  Listing 

A complete  listing  of  OUTPUT  is  contained  in  the  follow 
ing  pages. 
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?ijH*(nuT  If  t Ol'TPliT 

COMMON/Bl  UT(v1  / THfcTA  < 40  Ci , 2 ) , fcnCL  ( 4 U n . ? ) , "i  L 0 M A x ( 4 - ^ , 

1 «■'  JCK4X  (400  , 2 ) 

C 

COMMfWBLQrM/NpnL.NASPf  3)  . in 

C 

MP  T S s \Abp(  1 i 

r 

r 

W i<  I r fc  (6,2000) 

27uO  FOKMAT  (///bn  M T H b T a F C V Dl^Mx  V SIDrtVv  fcPH  nLnhXH  b I (i^  A w ) 

r 

rui  n n.n,?o,2")  , NPOl. 

r 

XV  HO  12  !«1,XiPTb 
ID  * |1  M 

WP  I TP(  *,?01  u ) ThT  r A ( I ,1  ) ,tOCL  ( I , 1 ) . OLRf'AV  ( T , 1 ) . S IGF' AY  ( I ,1  ) , ID 
? 'I'1  Fjhmak  ^ o . 1,  f S,  5 , 1 X.2(lX,r6. 1 ) , 40X.  7h  p ,If) 

UK  I TP  ( M.mo"  ) T’hF  TA  U , 1 ) ,EOCL  ( I * 1 ) , DI.BkiAX{  I , 1 ) ,b  Itj^AYl  ! , 1 } , ID 
inoo  ruRnAif  f t . x , 4x , :<Kb , i , 4ix»  7:i  p . I ^ ) 

1/  r iM  I iMiit 
0cTjPr„ 

r 

c 

;•  CONTINUE 

ro  60  TsI.MPTS 
1 l'  = I n ♦ l 

^KITF(6,?J?U)  THTTa  ( I , 1 ) , fcOCL  < T , 1 ) , L)l  H“AK  ( I , 1 ) , S I Av  i I , i ) , 

1 EQCLl  T «?)  »DLP"Ay(  I ,?)  , b 1 1, M A v ( I , In 

2 1 2 II  FORM  A T ( F6.i,F‘'.i,1X.2<lv.F6.1),?X.F5.1,lA.2U*,r6.l»,1*»y#7hl 
1 ,16) 

Tf-  ( 44,  ini') ) tmP  TA  ( I , 1 ) ,EDCL  ( T , 1 ) .Dlk^AXt  I , t ) , bI(iMAy  ( ! , 1 ) , 

j bOCL  ( I , ? ) , Dl  Kma*  ( T , 7 ) , sir^'A  v c I ,?) , jn 

1MC  FiJRmAK  F6.1,«,y,AF^.l,  26a,  7n  n , I * ) 

C 

CONTlfjllfc 

r 

o 

P):  T 

F .1) 
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SECTION  4 


TEST  DESCRIPTION 

A test  problem  was  run  on  the  GE  635/645  computer  for 
the  purposes  of  debugging  computer  program  DISCRM.  A de- 
scription of  the  test  problem  is  presented  in  the  following 
paragraphs . 

4.1  INPUT  DATA 

A complete  listing  of  the  input  data  for  the  test 
problem  is  found  in  the  following  pages.  The  format  of  the 
data  is  described  in  Section  3.2. 1.3.1. 

Card  1 

DBDOWN  28.0 

RLOW  134.5 

RHIGH  165.0 

Card  2 

THTID 
FREQ 
NPOL 
NBRTGT 

Card  3 

NWDS 
THOLD 
IRO 
THING 
DRANG 

Card  4 

POLID 
NASP 
THETS 
THETE 
NVOID 
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Vert/Vert 

91 

0.0 

90.0 

0 


450 

-52.8 

200 

1.0 

0.51 


Model  6/14  Two  Spheres,  One  Jack 
9.0 
1 
1 


v 


Card  5 


THETA 

0.0 

ICK 

1 

NPN 

7 

EC 

3.0 

IJPOL 

1 

Card  6 

INPN(l) 

1 

RR(1) 

122.6 

SS(1) 

-52.8 

INPN (NPN=5) 

1 

RR (NPN=5 ) 

154.9 

SS (NPN=5) 

-51.8 

Card  7 

INPN (6) 

2 

RR(6) 

162.6 

SS  (6) 

-28.6 

INPN  (7) 

1 

RR(7) 

164.7 

Card  N 

SS  (7) 

-46.7 

The  input  data  of  importance  to  DISCRM  is: 

1.  Model  6/14  two  spheres,  one  jack 

2.  One  polarization:  Vertical/Vertical 

3.  Peaks  more  than  28.0  dB  below  the  maximum  peak 
in  the  signature  are  to  be  ignored. 

4.  Only  peaks  between  134.5  and  165.0  inches  are  to 
be  considered. 

5.  91  aspect  angles  are  to  be  considered:  0 to  90 

degrees . 


78 


’8. 

0 139 

• ■ 

; 15  ..  0 

M00F  L 6/14 

rwo  5HP-*ts, 

045  JACK 

9. 

uO 

1 1 

4S>0  -62 

• 

3 20  0 

1.0 

C.  51 

V ERT/VE-6T 

91  0.0 

90.0 

0.0 

1 

7 3.0 

1 

1 

122.6-52.6 

2 

135.9-  ’1. 3 

1 

14  0.6-4  0.4 

2 

148. 3-26.1 

1 

154.9-51  .8 

2 

162.6-28.6 

1 

1 64 . 7 - +6  • 7 

2 

lb8. 3-42.2 

1 

171. J-53.2 

1.0 

1 

7 3,0 

1 

1 

123.1-52. 6 

2 

136.5- 71  .6 

1 

140. 0-40.6 

2 

148.3-25.9 

1 

154.4-51.8 

2 

163.1-29.4 

1 

164,2- *6.8 

2 

lb7. e-42. 1 

1 

170. 8-53  ,b 

2.0 

1 

7 3.0 

1 

1 

124. 1-52. 7 

2 

136.5-21.5 

1 

140.6-41.5 

2 

148.8-27.1 

1 

154.9-52.1 

2 

162.6-31.0 

1 

lbb. 2-  -6.3 

2 

lo  7 . 8-43. 1 

1 

171. 3-54.9 

3.0 

1 

7 3.0 

1 

1 

123.6-53. 1 

2 

136.5-21.3 

1 

140. 6-42.4 

2 

148. 8-27.4 

1 

154.9-52.3 

2 

If  1.1-35.6 

1 

1 64 . 7 - -»b  • 5 

2 

lb  7 .8-43.9 

1 

170.8-53.5 

4.0 

1 

11  5.0 

1 

1 

122.6-54.0 

2 

126.2- +9.5 

1 

127.7-49.6 

2 

137.0-22.6 

1 

140.6-42.6 

2 

149. *-29.3 

1 

154.9-52.7 

2 

1 0 1 . 1-38.6 

1 

lob. 2-47  .4 

2 

163.3-46.1 

1 

170.8-53.6 

5.0 

1 

8 3.0 

1 

1 

124.1-52.9 

2 

135.9-22.0 

1 

141.  1-43.5 

2 

147. 7-30.3 

1 

154.  4-53  .3 

1 

157.0-53. 3 

2 

loO.b- .5.7 

1 

170.3-53.9 

6.  0 

1 

8 3.0 

1 

1 

123.6-53. 7 

2 

13b. 5-21. 3 

1 

1 4 1 , 1-44.4 

2 

148.3-31.3 

1 

154.4-53.9 

1 

162.6-53. P 

2 

167. 2-  .9.6 

1 

159. 8-53.8 

7.0 

1 

11  4.0 

1 

1 

125.  2- s>4 . 0 

2 

136. 5-21.9 

1 

141.6-45.4 

2 

146.3-32.5 

1 

154.4-53.4 

1 

156.0-53.9 

2 

1 b9 . 5-  .5.9 

1 

162.  1-53.4 

1 

166.2-53.5 

2 

171. 3-55.2 

1 

173.4-53.8 

8.  o 

1 

7 3.0 

1 

1 

125.2-52.7 

2 

136.  5-  ’2.4 

1 

142. 1-47. 9 

2 

148.  8-34 .3 

1 

154.9-51  .6 

2 

1 5 9 • 5 -4l  • o 

1 

169. 3- *2.9 

0 

1 

9 4.0 

1 

1 

12^.2-52.8 

2 

136.5-22.1 

1 

142.6-50.8 

2 

I48. 3-35  .5 

1 

154.9-50.3 

2 

160. 1-38.6 

1 

162.6-47.5 

2 

164 . 2-h6. 2 

1 

lo9. 3-53.1 

10.0 

l 

7 3.0 

1 

1 

126.2-53. 0 

2 

1 36. 5-  ’2.2 

1 

142. 1-45.0 

2 

I46. 2-35.0 

1 

154.4-48.7 

2 

1 5 9.  5 - 3b . 2 

1 

i 68. 8-  .3.0 

11.0 

l 

9 4.0 

1 

1 

125.7-54.4 

2 

136.5-?l.o 

1 

I41 . 1-43.8 

2 

148. 3-32  .7 

1 

153.9-48.4 

2 

160.1-35.4 

1 

1 6 3 . 1-  .3.  3 

2 

164. 7-48.0 

1 

1 0 9. 6-53.9 

12.0 

1 

7 3.0 

1 

1 

127.2-53.2 

7 

136.5-  ’1.9 

1 

U0. 6-42.7 

2 

148.  1-32  .b 

1 

154.4-48,4 

2 

161.6-33.5 

1 

1 o9 , 3 - .2.9 

13.0 

t 

7 3.0 

1 

1 

127.2-53. 0 

2 

1*6.5-  ’1.9 

1 

l40.6-4l.o 

2 

I48. 3-30.0 

1 

152. 9-49.1 

2 

If l.t-32.3 

1 

166. 3-  -4. 7 

14.0 

1 

3 3,0 

1 

1 

126.2-53.1 

2 

17b. 5-21. 7 

1 

140.6-41.8 

2 

147. 7-29 .0 

1 

153.9-50.8 

2 

160.6-31.3 

1 

166.2  - -.>3,  4 

1 

171. 3-53.6 

15.0 

1 

4 3.0 

1 

1 

127.2-52.2 

2 

136.5-  ’1.5 

1 

140.6-42.5 

2 

147. 7 -26  .9 

1 

153.4-52.3 

1 

153. 9- v 2. 5 

2 

16 1 . 1- 79.1 

1 

lob . 7-53.  3 

16.  0 

1 

8 3.0 

1 

1 

126.7-52.9 

2 

137. P-71. 8 

1 

140.6-46.5 

2 

148. 8-25.9 

1 

152.9-52.8 

1 

163,9-53.5 

7 

162. 1 -’7.5 

1 

lob • 2-5  3.  8 

17.0 

l 

7 3.0 

1 

1 

177.7-52.3 

2 

13 6. 5-’ 1.9 

1 

1 4 1 , 1-45.  7 

2 

148. 3-24.4 

1 

153.9-51 .9 

2 

161. 1-26. 7 

1 

16b. 7-  ,3.1 
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1 153.4-50.5 


18 

1 126.2 
2 ltl.l 

19 

1 121.1 
1 153.4 
1 175.4 

20 

1 125.2 

2 lbl.6 

21 

1 117.5 

2 160.6 

22 

1 117.5 

2 160.1 

23 

1 112.9 

1 127.2 

2 160.6 

24 

1 115.9 

2 UO.b 
i 160. 1 

25 

1 113.4 

2 137.5 

1 171.9 

26 

1 111.8 

2 160.6 

1 1 °2. 4 

27 

1 112.3 
1 139.5 

1 174.4 

2 1P3.7 

28 

1 117.5 

2 148."' 
1 182.1 

29 

1 114.4 

2 147.7 
1 173.4 

30 

1 111.8 

1 127.7 

2 160.1 

31 

1 117.0 
^ 147.7 
1 172.9 

32 

1 123.6 

2 147.2 

1 184.7 

33 

1 119.0 
1 140.6 


0 

1 

8 3.0 

63.0 

2 

137.0- >1.9 

l 

1 + 0 • 0— 43.0 

2 

25.8 

1 

166.2-  3.2 

1 

174.4-53.8 

0 

1 

11  4.0 

53.  6 

1 

125.7-53,1 

2 

13b. 5-20. 8 

l 

48.2 

2 

160.6-  7 

1 

166.  7-52.  9 

1 

54 .7 

0 

1 

9 3.0 

53.7 

2 

137. 0-21.6 

1 

I4O. 0-40.4 

2 

24.4 

1 

1 7 P • 3-  >3.  8 

l 

170 . e-53. 1 

1 

0 

1 

8 3.  0 

53.3 

2 

13o.5-21.7 

1 

1+0.0-38.5 

2 

24.6 

1 

178. 0- >4 , 0 

1 

163.  7-53. 1 

Q 

1 

6 4.0 

53.  3 

2 

136. 5-21.4 

1 

1 4 1 • 6-34. 6 

2 

24.2 

1 

167 .8-31,4 

2 

169.  3-49.  7 

0 

1 

1-3  6.0 

53.0 

2 

114.4-  -.1.7 

1 

117. 0-52.8 

1 

51. 7 

2 

137.0-  ’1.2 

1 

142. b-34.9 

2 

23.3 

1 

167. 8- >3.0 

1 

168.  8-53.  2 

2 

0 

1 

13  5.0 

53.3 

2 

136.5-21.8 

1 

142.1-36. 1 

2 

22.5 

1 

169.3-52.8 

1 

170.3-53.  1 

2 

64.1 

2 

182.6- >0.9 

1 

185.2-53.6 

0 

1 

15  6.0 

53.  7 

2 

121.1-31 .6 

t 

123. 1-52. 3 

2 

21.6 

1 

141.6- 35.4 

148. 3-18.9 

1 

63.1 

1 

173.4- 33.1 

t 

180 . 1-53.4 

2 

0 

1 

12  4.0 

52.8 

2 

137.5-21.3 

1 

1 4 0 . 0-41.5 

2 

21.6 

1 

175.4-33. 3 

1 

180.6—53,3 

2 

62.9 

1 

194.4-53.1 

0 

1 

19  8.0 

52.6 

1 

1 19.  0- >2. 7 

1 

119.  5-53.  0 

2 

41.4 

2 

147.7-18.6 

1 

lp 1 . 3-43 • 4 

2 

54.  4 

1 

176.5- >2.9 

2 

17  8 . 0-50. 3 

1 

50.0 

1 

1 87 . ?—  >2.o 

2 

169. 8-51. 3 

1 

u 

l 

1 4 6.0 

53. C 

2 

123.6-30.9 

1 

126. 2-51.9 

2 

16.4 

1 

151.8-+1.4 

p 

loO.  6-22.2 

1 

33.  C 

1 

182.6-  >3.0 

2 

184. 2-50. 4 

1 

0 

1 

1 4 6.  0 

32.9 

2 

120.0- >0.6 

1 

123. 1-61.7 

2 

19.6 

1 

152.4-fl.l 

2 

160.  1-23.2 

1 

53.0 

1 

181.6- >*.3 

2 

184. 7-51. 3 

1 

0 

1 

1 4 6.  0 

53.6 

1 

115.4- >3.5 

2 

120.b-51.2 

1 

52.3 

2 

137.5-71.3 

1 

1 4 1 . 6-  3 3.3 

2 

24.8 

1 

lo8 . 6- >2.9 

2 

171 . 3-48.9 

1 

0 

1 

11  4.0 

53.5 

2 

120.6- >1.5 

1 

122.6-52.2 

2 

21.6 

1 

161.8-  .+  .3 

2 

loO.  1-24. 7 

1 

53.  0 

0 

1 

11  4.0 

53.3 

2 

12b. 2- >1.7 

l 

128. 2-52. 1 

2 

22.3 

1 

162. 4-  .7. 5 

2 

1p9.  0-24.  6 

1 

33.6 

0 

1 

13  5.0 

53  .8 

2 

120.6- >2.4 

1 

123. 1-53.2 

1 

40.9 

2 

147.7-22.5 

1 

151.8-45.7 

2 

1 

148. 8- 22.9 

1 

140.6- 42.8  i 
171. J-52 .8  2 

1 

148.3- 21.1  1 
180. b-53  .4 

1 

147.2- 20.9  1 

1 

147.2- 20.3  1 

1 

117.6- 53.0  2 

147.7- 19.6  1 

173.4- 47.4  1 

1 

147.7- 20.1  1 

172.4- 47.5  1 

1 

124.7- 50.9  1 

152.9- 47.3  2 

183.7- 50.0  1 

1 

147.7- 19.2  1 

183.1- 50.3  1 

l 

122. 1- 50.4  2 
lbO. 6-22.2  2 

180.6- 53.7  1 

192.4- 53.3 

1 

138.0- 20.8  1 

176.0- 52.9  2 
186.  7-53  .1 

1 

137.5- 21.2  1 

167.2- 50.5  2 

186.7- 53.1 

1 

123.6- 52.8  «. 

147.7- 20  .2  1 

174.4- 53.4 

1 

137.5- 21.0  1 
lb6. 2-53.6  i 

l 

137.0- 21  .2  1 

134.7- 52.9  1 

1 

125.7- 53.1  2 

159.5- 25.7  1 


147. 7-21.4 
172.9-49.0 


152.9-44.8 

152.4-43.7 


152.4-44.4 


120.0-60.8 

152.9-46.5 

175.4- 62.9 

152.4- 46.6 
177.0-52.9 


127.2- 51.9 
161.1-21.8 

166.2- 54.1 

152.9-47.5 

186.2- 52.8 


137.5- 21  .1 
171.3-48.7 

181.6- 52.9 


141.0- 33.1 

178.0- 50.3 


142.1-33.6 

170.3-49.0 


126.2-51.4 

152.4-43.6 


142.1-34.3 
168.  8-53.1 


140.6-40.8 
1 7u. 3-53 .6 


137.5-21.1 

166.7-52.9 
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r 

i 

It  9.  3-52.  8 

2 

176.0-  •♦.7 

1 178.0-53.5 

34.0 

l 

0 3.0 

1 

1 

126. 2-52. 4 
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155. 4-48 

. 9 

2 

157.5-45.9 

1 

164.7-53.2 

1 

1 fcb  • 7 - .>5  • 

4 

1 

17  9. 

5-53.  1 

2 

182.  1-51 

. 3 

1 

184. 7-53.3 

82. 0 

1 

9 

4.0 

1 

1 

11  9.  5-63.  1 

2 

12«.?-3l. 

J 

1 

151  . 

3-52.o 

2 

145.2-30 

.2 

1 

146.7-34.5 

2 

161. 3-23. 7 

1 

138  . 0-  ->1  . 

5 

•> 

lb  2 . 

1-49.2 

1 

1 o 4 . 7-5? 

.8 

83.0 

1 

9 

4 . 0 

1 

1 

1C  8. 2-52. 9 

2 

127.2-  .3. 

3 

2 

197  . 

2-15.o 

1 

1O9.0-49 

.7 

c. 

161.6-48.0 

1 

177.5-52.3 

2 

1 83. 7- *7. 

9 

t 

189. 

3-52.  8 

1 

194.4-52 

.4 

84 . 0 

1 

6 

2.  0 

1 

1 

120. 0-57.0 

2 

1 4b . 7- 1 7 . 

3 

1 

157. 

5-96.0 

2 

159. 0-45 

.8 

X 

167.3-53 .1 

1 

181.1-63.4 

85.  0 

1 

b 

2.0 

1 

1 

132.9-53.6 

1 

l 77.5- <2. 

3 

? 

150. 

8-23.0 

1 

153. 4-44 

• 4 

C 

154.9-4.7.7 

1 

1 5 6 . 0 - 6 2 . 4 

8b.  0 

1 

1 7 

0 . 0 

1 

1 

110.3-57.6 

2 

127.b-  .1  . 

3 

2 

197. 

2- 15. 9 

1 

159. 0 -48 

. 4 

<_ 

161.  6-46.7 

1 

164.7-60.4 

2 

lbo.2-+9. 

7 

1 

1 J 3 . 

3-51.2 

2 

169.8-50 

. 1 

1 

173.4-53.0 

1 

178.0-52.7 

2 

1 83 . 1- *8  . 

■> 

1 

15  8. 

3-52.o 

87  . 0 

1 

17 

8 . 0 

1 

1 

1 r 8 . 7 - 5 3 . 3 

1 

111.8- >7. 

3 

-> 

1 1 4 . 

4-51 . 3 

1 

117.5-52 

.9 

Z 

122.6-49.7 

1 

126.2-51.4 

2 

128.8- >0. 

1 

2 

134  . 

9-49.o 

1 

136.5-50 

.5 

c 

147. 7-17.7 

1 

156.5-47.4 

2 

1 s*  8 • 5 - ♦ + • 

1 

1 

16  6. 

2-53.2 

2 

I08. 3-51 

. u 

1 

170.3-57.1 

1 

179.5-53. 1 

2 

194.4-35. 

7 

8«.0 

1 

7 

3.0 

1 

1 

129.5-53.5 

2 

149.6-  _'7. 

3 

1 

152. 

9-  4 0.  0 

2 

1 ?4. 9-44 

.5 

1 

1 of . 0-50 . 3 

? 

159.0-48.7 

1 

Ib2. 6- 33. 

3 

89. 0 

1 

12 

4 . 0 

1 

1 

112.3-6* .e 

1 

1 3h. 4-  <0. 

J 

14  9. 

8- lb. 3 

1 

1 S>6 . 0-49 

. 3 

L. 

160.1-47,3 

1 

168.3-61.8 

2 

Ic9. 8 - ; 3 • 

1 

1 

172. 

9-52.9 

1 

177. 0-53 

• 0 

r> 

c 

134.2-47 .6 

1 

188. 8-53. 8 

1 

193.9-  ->2. 

7 

90. 0 

1 

1 4 

7.0 

1 

1 

1 C9 . 7- 5 7 . 4 

c 

1 2.7  . 7-  ,8. 

; 

1 

129. 

7-4  9.  J 

2 

13  0.8-48 

. 0 

c 

1 47.2-16 .1 

1 

167 .O-^t.3 

2 

1 v 8 . 5 - ► 7 , 

9 

1 

lb  0 . 

6-49.  2 

2 

lo2 . 6 -4  3 

.0 

1 

lfab. 2-51.5 

? 

16  7.  »-50.  3 

1 

171. 3- >2. 

3 

1 

179. 

0-53.  LI 

2 

194. 4-55 

.5 

84 


4.2  OUTPUT  DATA 


The  output  for  the  sample  problem  may  be  found  in  the 
following  pages.  The  first  part  of  the  output  is  a listing 
of  the  input  data.  The  second  part  is  a listing  of  the  re- 
sulting discriminants  calculated  from  the  input  data.  Only 
one  polarization  was  examined  (Vert/Vert) . The  listing  con- 
tains the  discriminants  (1)  equivalence  class  (ECV) , (2) 
maximum  separation  between  significant  peaks  in  the  signa- 
ture (DLRMXV) , and  (3)  maximum  target  radar  cross  section 
in  the  signature  (SIGMXV)  for  each  aspect  angle  (THETA)  for 
Vert/Vert  polarization.  If  two  polarizations  were  examined 
the  discriminants  formed  for  the  second  polarization  would 
have  been  listed  in  the  appropriate  columns. 
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5NUMW  z IQ 

7 

31 , ACTIVITY 

a s V,  3fc.P(J91 

CODE  * 3 6 1 

1 

Bc3J8l,  CfUltJT  I u'-.4Pl 

MODEL  6/14 

f >*» L SHPEHTS 

« 

C\E  JA"K 

9 

. 0 

3 1 1 P 1 U " 0 3 

450  -62. 

c 2"U 

1 . 0 

3.61 

P 1 0 3 fj  4 

CONFIDE'?  OMLV 

E-AK5  tE69 

THAf.  22."  Pd  D3WM  Alin  P£TwFfc 

* 174.3  Alin  if  3.0  ! 

vfst/ve»t 

91  0 , 

90.0  0 

P 1 0 " j " 

0. 

1 

7 3.0 

1 

1 1 72 . 6 -3? , P 

2 

13c'.9-?l,8 

1 

142.6-40,4  7 

14P. 7-76.1 

1 

lr-4 . 9-31  . P 

2 162.6-2". 6 

1 

le« . 7-4P . 7 

1 . U 

1 

7 3.0 

1 

1 123,1-32.8 

? 

136.6-21.6 

X 

14u. 0-43.6  ? 

148.3-73.9 

1 

164 .4-31,6 

2 163.1-29.4 

1 

164 , 2-4fe , b 

2.0 

\ 

/ 3.0 

1 

1 174.1-37.7 

? 

1 36.3-71.3 

1 

14  j .6-41  .5  7 

1 40 . P-?  7 , 1 

1 

164 .9-3? . < 

2 162.6-31.0 

16-3.2-46. 3 

3 . U 

1 

7 3.0 

1 

1 123.6-37.1 

7 

136.5-21 .6 

1 

140.6-47,4  7 

1 4 P . P - ? 7 . 4 

1 

164,9-37,3 

2 161,1-35.6 

164. 7 - 4 b . 3 

4 . U 

1 

11  5.0 

1 

1 1?2. 6-34,0 

2 

126.2-49.5 

1 

177.7-49.,  ? 

137.0-72.6 

1 

140.5-47.6 

2 149.3-29.3 

134 . 9-32 . 7 

2 

161. 1-38. P 1 

166.7-47.4 

2 

160.3-45,1 

1 170,8-37.6 

3.0 

1 

0 3.0 

1 

X 

1 124,1-37,9 

136.9-72.0 

1 

141.1-41.5  1 

147,7-70.3 

1 

i 5 4 . «♦  - j ^ , "% 

1 167,0-37.3 

1 oP . 6 — 45 . 7 

1 

1 7 0 . 3-31 , 9 

6 . 0 

1 

0 3.0 

1 

1 123.6-37,7 

7 

136.3-21.8 

1 

14; . 1-44 . 4 7 

148.7-11.0 

1 

1 162.6-33,0 

167 ,2-19.6 

i 

169 . J-31 . P 

7.0 

1 

11  4.0 

1 

1 125.2-34 ,r 

7 

136.5-21,9 

1 

141.6-45.4  7 

<48.7-72.3 

1 

1 h 4 . 4 - > * , 4 

1 156,0-33.6 

? 

139.3-4^.9 

1 

162.1-33.4  1 

1 66,2-53  . 5 

2 

1/1. 3-/5. ? 

1 173,4-53." 

6 , 0 

1 

7 3.0 

1 

1 125,2-32.7 

n 

136.6-/2.4 

1 

142.1-47,0  ? 

j 4P . 8-74 . 3 

1 

1 6 4 . 9 - 5 < .6 

2 1*9. 3-41, 6 

i 

1&9.3-62.9 

V .0 

1 

9 4.0 

8 

A 

1 1?3.2-3?,F 

7 

I 3 6 .5-22 . 1 

* 

14c. 6-3", 8 2 

1 48,7-73.3 

1 

1 6 4 , , - 5 n , 1 

2 160.1-36.6 

1 

.62.6-47.5 

<> 

16*,. 2 — 46,5  . 

169.3-63.1 

10  . P 

1 

/ 3.0 

1 

1 126, 2-33, n 

7 

1 3'  ,5-?i . ; 

1 

14< .1-46.6  7 

146.7-73.0 

1 

164.^-44,7 

2 169.3-36.2 

\ 

■ 0"  . M-  >3.9 

U . 0 

4 

9 4.0 

2 

1 173.7-34,4 

p 

1J  6. 3-21. 6 

x 

141.1  — 43, P 2 

148.3-72./ 

1 

163.9-  . ■ . 1 

2 160,1-36.4 

i 

It  1.1-4  6.’) 

✓ 

;,1. 7-48,0  1 

169,8-68.9 

12.0 

7 3.0 

1 

1 177.2-33.3 

? 

1 3 6 , 3 - ? 1 . 9 

1 

140.0-47.7  ? 

148.3-72.6 

1 

2 161,6-33.3 

1 

169 . 3-51 . 9 

13.0 

1 

7 3.0 

x 

1 1?/. 2-33. 6 

p 

’36,5-21,9 

4 

1 4 J . 6 - 4 1 , 6 7 

<48,3-7,, 

1 

iS  . 7-47,1 

2 161,1-32.3 

1 

J 6 *“  . 1-54.7 

14.0 

1 

0 3.0 

1 176,2-31,1 

'6,5-21.7 

1 

1 1 . o-4t , P 7 

1 4 7 . 7-79 . 0 

1 

1"  1 0 

2 160,6-31  . « 

1 

1«6 . 2-53 . 4 

i 

1?1 .3-31.6 

13.0 

3 . 0 

1 

1 177,2-3?.? 

p 

* 3 6 . 6 - 7 1 , 5 

1 

14 „ ,6-47,6  7 

’I7. 7-56 , 9 

1 

lt'3.  -,-  >5,  < 

1 163.9-37.3 

P 

1 p 1 .1-27.1 

1 

166.7-34.3 

16.0 

X 

0 3.0 

1 

1 l?6.7-3?,6 

7 

1 3 7 . >-?  1 . 6 

1 4 . 6-45 , C 5 

< 4 P . n - 5.9 

1 

1 *■  2 , 9-37,8 

1 133. 9-3  3. 3 

p 

’ 62. ’ -2/ .5 

1 

166 .2-51.4 

1/.0 

l 

7 3.0 

1 
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1 

127,7-52.7 

? 

136.5-21  .9 

1 

141.1-45.7  2 

148.3-24,4 

1 

1*3 . 9-51  .9 

2 

161,1-26,7 

1 

1 6 6 , 7-53, 1 

18.  Q 

1 

0 3,0 

1 

1 

126,2-57,0 

? 

137.0-21.9 

1 

140,  j - 4 3 . 6 ? 

1 48 . 9-2 2 . 9 

1 

193.4-50,5 

2 

161, 1-25,8 

1 

166,2-63.2 

1 

174.4-53,8 

19.0 

1 

11  4.0 

1 

1 

121,1-53,6 

1 

125. 7-5J.1 

2 

176.5-20,8  1 

140.6-42,8 

2 

147.  7-21 . 4 

1 

153,4-48,? 

2 

160 , 6-24  . 7 

1 

166.7-52,9  1 

1 71,3-52.8 

2 

1 7? . V-49 , 0 

1 

175.4-54,7 

20.0 

1 

9 3.0 

1 

1 

125,2-53.7 

2 

137 . 0-21 . 6 

1 

14J.Q-40.4  2 

148.3-21.1 

1 

1*2 . 9-  14  , P 

2 

161,6-24.4 

1 

170,3-53,8 

1 

170,8-53,1  1 

'80,6-53.4 

21.0 

1 

6 3.0 

1 

1 

117,5-53.3 

2 

136.5-21, 7 

1 

1 4 j , 0 - 3 9 , 5 2 

147.2-20.9 

1 

1*<. 4-47,7 

2 

160,6-24.6 

1 

1 7(7 .0-54 . 0 

1 

193.7-53,1 

22.0 

1 

8 4.0 

1 

1 

117,5-53.3 

? 

136.5-21.4 

1 

141.6-34,6  2 

147.?-?0.3 

1 

152.4-44,4 

2 

160.1-24,2 

l 

167.8-51.4 

2 

169.3-49,7 

23,0 

1 

15  6,0 

1 

1 

112,9-53.0 

? 

114.4-51.7 

1 

117.D-52.9  1 

117.5-53.0 

2 

a? U. 0-50, 9 

1 

127.2-51.7 

2 

137.0-21,2 

1 

142.6-34.9  ? 

147.7-19.6 

1 

152.9-46.5 

2 

16Q.6-23.3 

l 

167.0-53.0 

1 

166.8-53,2  2 

173.4-47.4 

1 

175.4-32.0 

24 , 0 

1 

13  5 .& 

1 

1 

115,9-53.3 

2 

136,5-21.8 

1 

142.1-36.1  2 

147.7-20.1 

1 

1*2.4-46,6 

2 

160.6-22.5 

1 

1 69 . 3-52 . 6 

1 

170.3-53,1  5 

1 72.4-47.5 

1 

177.0-3?,° 

1 

150,1-54.1 

2 

18?  .6-50 . 9 

1 

1*5.2-53,6 

25.0 

1 

15  6.0 

1 

1 

113,4-53.7 

n 

121 .1-51.6 

1 

123.1-52.3  2 

124,7-90.9 

1 

127.2-51 .9 

2 

137,5-21.5 

1 

141,6-35.4 

2 

1*0. 3-19. 9 1 

152.9-47.3 

2 

161  .1-21  . 9 

1 

171,9-53.1 

1 

173.4-53.1 

1 

19J.1-53.4  2 

183.7-50.0 

1 

1*6.2-54.1 

26 . 0 

1 

12  4.0 

1 

1 

111, 8-52. « 

5 

137.5-21.3 

1 

14J.0-41.5  2 

147.7-19.2 

1 

1*2.9-47,01 

2 

160,6-21 .6 

1 

175,4-53.3 

1 

190.6-53.3  2 

183.1-90.3 

1 

1*6 .2-50. 9 

1 

192.4-5 2.9 

1 

194.4-53.1 

27 . 0 

1 

19  8.0 

1 

1 

112, 3-52. P 

1 

1 19.0-52.7 

1 

119,5-53.0  2 

1 22.1-90. 4 

2 

177.5-21. 1 

1 

139,5-41.4 

2 

147.7-18.6 

1 

1*1.3-43.4  2 

160.6 -22.2 

2 

1 7 1 . 3-48.7 

1 

174.4-54.4 

1 

1 76 .5-5? . 9 

2 

1 7 8 . 1-56.3  1 

180. 6-93.  7 

1 

1*1  . 6-32 , 0 

2 

1 93  , 7-56 . 6 

1 

187.2-62.6 

2 

1*9.5-51,3  1 

1 92,4-93.3 

28. 0 

1 

14  6.0 

1 

1 

117.5-53,0 

2 

127, 0-5  lj, 9 

1 

19(3.2-21  .9  2 

138.0-20.8 

1 

141.0-33,1 

2 

148,3-19.4 

1 

151.0-41.4 

2 

160.6-2?. 2 1 

176,0-92.0 

2 

1 *7  ,4  . ,1-30  , 7 

1 

192. 1-53  . n 

1 

1 o2 ,6-53 . 0 

2 

1*4.2-50.4  1 

1 56.7-63.1 

29 . 1) 

1 

14  0 . 0 

1 

1 

114,  4-5?  . 6 

2 

120.0-50.6 

1 

193.1-51.7  2 

137.5-6!.? 

1 

.1 4 2 , 1-33,5 

2 

147.7-19.8 

1 

162.4-41.1 

2 

1*  1 . 1-2-3 . 2 1 

167.2-50.5 

2 

J.7IJ  . 3-49,0 

1 

173,4-53.0 

i 

1 81 . 6-'-'3 . 0 

2 

194.7-51,3  1 

1*6.7-93.1 

30 . 0 

l 

M 6 . U 

1 

1 

111,8-57.6 

1 

115.4-53.5 

2 

12 J . 6-51 . 2 1 

123.6-92.8 

2 

l°6 . 2 - 3 1 . 4 

1 

127.7-52.3 

5 

137.5-21.5 

1 

141.6-33.7  2 

1 47.7-50.2 

1 

1*2 . 4-47.6 

2 

16J.1-24.8 

t 

18R, «-55. 9 

2 

171.3-48,0  1 

174.4-93.4 

3l  . U 

1 

11  4 . U 

1 

1 

11  7. 0-53. S 

2 

120.6-61.5 

1 

122.0-39.2  9 

137.5-21.0 

1 

14? .1-54.7 

2 

147,7-21 .9 

1 

151.9-44.3 

> 

1*  J . 1-24.7  1 

166. 2-93.6 

1 

1 * 0 . 3 - > 3 , 1 

1 

172,9-53.0 

32.  U 

1 

U 4.0 

1 

1 

123.6-5  7,  < 

? 

? 6 .2-51,7 

1 

124.2-59,1  0 

137.0-21.2 

1 

140.6-40,0 

2 

147, 2-22.  7 

1 

152.4-47,5 

2 

l* 9, 0-24. 6 1 

16  4. 7-*2 . y 

1 

l7')  . i-  >7,6 

1 

184,7-57.6 
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33.0 

1 

13  5,0 

1 

1 

119, 0-53. « 

2 

120.6-52.4 

i 123,1-53.2  1 

125.7-63.1 

2 

137.5-21 .1 

X 

140,6-40.9 

2 

147,7-22.5 

1 151,6-45,7  2 

159.5-25.7 

1 

160. 7-30,9 

1 

169,3-152.8 

2 

1 76,0-64 . 7 

1 l70. 0-53.5 

34 , 0 

J. 

6 3.0 

1 

X 

X?0 ,2-52.9 

C 

138.0-21.4 

2 140.3-21.9  1 

151.8-41.5 

2 

167.5-26,2 

X 

X66 ,7-53 , 3 

35.0 

1 

10  5,0 

1 

X 

X19, 5-53.1 

2 

126 .2-50 . 6 

1 127. 7-51.1  2 

138.0-20.9 

1 

141.0-30,8 

2 

147, 7-22.0 

1 

152.4-40.3 

2 159.J-26.0  2 

170.3-49.0 

1 

173.4-53.6 

36 , 0 

i 

12  5.0 

1 

X 

X 1 7 . 5-53,1 

? 

124,7-51.0 

1 126.7-51.7  2 

138,9-20. 6 

i 

142.1-52.8 

2 

147,7-21  .2 

1 

151.0-43,7 

2 159.0-25.7  1 

165 . 7-53 , 3 

1 

160 .3-34,6 

2 

170.3-49 . 8 

1 

1 72. 4-53,1 

37 . 0 

1 

13  6.0 

1 

2 

121,1-51.7 

1 

123,1-52,6 

2 125.2-51,2  1 

127.7-52.5 

2 

170,5-20,8 

X 

142,1-3?.* 

2 

1 48,3-20 .5 

1 151,8-45.4  2 

160.1-25.2 

1 

l6o.2-33,0 

2 

167,8-50  . 4 

1 

169.0-54.1 

1 175.4-53.0 

38 . 0 

1 

17  6.0 

1 

X 

115,9-52.9 

4 

X 

122.1-52, 7 

2 130.5-20,8  1 

142.1-36.5 

2 

147.7-26,3 

X 

151 ,6-45,3 

2 

1 59 ,0-24 , 0 

1 163.6-49.9  2 

165.2-48.3 

1 

169.3-31 ,5 

X 

173,9-53.7 

1 

181  .6-53.3 

2 1*3.7-51.6  1 

186.2-62.9 

1 

107.2-57,1 

2 

189 , 8-50  . n 

1 

192.9-53. 1 

39 , 0 

1 

11  4.0 

1 

X 

114,4-53.1 

1 

1 21 .6-53  , o 

2 125.2-60.5  2 

1 39 . 0-20 . 8 

2 

140.0-19. 7 

X 

150, 8-3*. 6 

? 

159.5-22,5 

1 168.3-51.3  1 

1 71.9-03.4 

1 

177.0-53,1 

X 

182,6-51  .9 

40.0 

1 

12  5.0 

1 

X 

169,3-52,9 

2 

125 . 7-5u , 4 

1 120.M-51.3  2 

139,0-20.4 

1 

142 . 6-31  , 9 

2 

148,3-19.2 

151.3-37.4 

2 159.0-22.6  1 

167.0-51.2 

2 

170.3-47.5 

X 

17^,9-53.4 

1 

1 79.0-63,5 

41.0 

1 

15  6,0 

1 

X 

112,3-53.1 

5 

124 . 7-30 , 3 

1 129.3-50.2  2 

139.0-20. 3 

1 

142.6-51 . 7 

2 

147,7-19.? 

1 

151  ,0-40,6 

2 150,5-23,4  1 

166. 2-53.0 

1 

163,3-54,1 

2 

169 ,0-49,9 

1 

1/1.9-6? . 7 

2 173.9-49.0  1 

1 77.0-02 . 9 

1 

1*2.1-57,0 

42.0 

1 

11  6.0 

1 

2 

139,5-21 .1 

0 

140.3-20.0 

1 150.0-42.4  ? 

159.0-23.3 

1 

162.0-31 . 1 

2 

164,2-48.2 

166.2-61.5 

2 167.0-49.2  1 

170,7-03.0 

1 

1*1.6-57,7 

2 

194 ,4-49,7 

43.0 

1 

1 c 5.0 

1 

X 

121,6-51.8 

2 

' ,7 

7\- 

*— 

a 

1 

X 

151 .3-40.6 

2 

1*8.  3-27,4 

X 

162,1-47.3 

2 

164,7-40,7 

1 173.9-52.7  ? 

176.0-60.5 

1 

1 7 n . •>  - 5 3 . 1 

1 

1*2,6-52.8 

1 

1 50 , 0-62 , 6 

44.Q 

1 

1 y 4.0 

1 

4. 

X 

Xli.V-54,4 

1 

127.0-62.7 

2 125. 2-50,8  t 

127.7-62.5 

2 

173.5-21 . 0 

X 

142.6-32.* 

?. 

147.2-21.2 

1 1*2.9-34.7  2 

150.0-03.4 

1 

1 0 . 1-31 

45.0 

1 

1 J 4.0 

1 

X 

109.0-53.5 

1 

129.3-62,4 

2 139.5-20,5  1 

1 43.6-09.1 

2 

147.7-20,5 

X 

152.9-36.8 

~> 

160.0-24.7 

1 160, 7-52.0  5 

169.3-40.7 

1 

173.0-54,5 

46 . 0 

13  6,0 

1 

2 

1 39. 0-20.8 

1 

143.6-11,4 

2 147,2-20.6  1 

1 50 . 3-42 . 4 

2 

1*7.  3-74.  » 

X 

161 , 6-5" . 9 

■> 

165.1-47,1 

1 I65.2-52.0  1 

1 02.6-63.5 

2 

1 J 4 . 7-31.6 

X 

186. 7-5?, 7 

191.4-62.7 

2 194 . 4-50 . 7 

47.0 

1 

17  7.0 

1 

X 

115,4-53,9 

? 

1 17.0-01.8 

1 119.5-53.3  ? 

1 21 . 1-61.9 

1 

123.0-57,5 

2 

139,5-20,9 

2 

147. 7-?o,3 

1 101.0-42.0  ? 

157.5-04.4 

1 

l' 1 . 6-36 , 9 

2 

163,6-46.7 

1 

167.2-02.6 

i 173.4-57. t 1 

104. ->-63.0 

1 

1 •*  / . 3-37  , 0 

2 

190,3-51 .0 

: 71,4-63,3 

48.0 

1 

12  6.0 

1 
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1 116,9-93.9  2 121.1-91.8  1 122.6-97.5  7 2 l«5'.j-21.^ 

1 143,6-31.0  7 141.3-19,9  1 lSi.b-33.1  2 197.5-24.1  1 192.1-91.2 

2 163.6-41.0  1 1 & 7 , 2-92 . 9 

49.0  1 1 2 6.0  1 

1 112,3-93.7  7 1H.4-9J.3  i 127.2-90,1  1 128,8-51.3  2 IM . W1 . 7 

1 143,1-27.7  2 147.7-10.4  1 192.9-37.5  2 197.5-23.9  1 164.2-92,0 

2 160,3-40.2  1 1 76.9-9,5,2 

50.0  l 17  7.0  1 

2 110.9-91.1  1 121.1  -92.7  2 122.6-9P.O  l 125. 2-91. b 2 l3?..j-2o.4 

1 143,1-2B,0  2 1 4 7.2-1  9,1  1 l5j. 3-40,1  2 1^6.5-23.2  1 1*1. 1-90,0 

2 163.1-45.7  1 169.7-93.0  1 16V. 3-97.0  1 175.4-63.7  1 196.7-57.7 

1 189,3-93.2  2 193.9-90.0 

51.0  1 17  7.0  1 

1 119,4-93.3  2 118.0-92.2  1 119.5-93.1  2 140.0-20.9  2 147.2-27.7 

1 151.8-36,7  9 157.0-23.1  i 161.1-31,3  2 163.1-48.1  1 166.7-51,6 

1 173,4-53.7  2 1/5.4-91.3  i 178.0-93,5  1 1ol.6-c3.2  1 181.8-97.5 

2 190. 3-50. P 1 194,9-93.3 

52.0  1 11  9.0  1 

1 116,9-92.0  2 124.7-90.7  2 14j.6-21.4  1 1 43.6-30.5  2 14j.  3-20,4 

1 152,4-31.8  7 157.0-23,3  l 160. 7-90.2  2 168.3-49.1  1 l7u. 3-52.5 

1 178,5-53.1 

53.0  1 10  3.0  1 

1 115,9-52.4  1 1i9.5-5i.7  1 129.8-51.7  2 140.0-20.9  1 143.&-27.0 

2 147,2-20,3  l 152.9-32.6  2 156.9-23.7  1 162.6-52.8  1 176.3-53,9 

54.0  1 17  7.0  1 

1 115,4-53.2  ->  124.7-5o.tJ  i 129.3-91.9  2 1 41.1-21.0  1 144.2-28,1 

2 147,2-21.1  1 149.8-43,5  2 1*6.5-24.3  ? 162.6-47.1  i 165.2-93.0 

1 168,8-53.3  1 1 /6.0-53.9  i 182.6-57.5  2 186.9-5.5.5  1 l*-. 3-97,4 

1 188,8-53.5  2 197.4-49,5 

55.0  1 11  6.0  1 

2 121,1-51.5  1 123.6-52.9  2 l4(<. 0-20.6  2 147.2-20.4  i i4v..i-4n.i 

2 156,0-24.3  2 167, 8-9. j. 2 1 169.8-53,4  1 179.5-63.2  2 182.6-57.7 

1 184,7-53.7 

56.0  1 12  9.0  1 

1 118,0-93.7  2 1 21.1  -91.5  1 17  7.5-5?. 7 7 127.2-51.2  1 199.6-52.7 

2 141,1-21.1  1 144,2-97.9  c l4o. 3-19,9  1 152.4-70.5  2 l^j. 9-27.8 

1 170.3-53 .0  1 1 /1 . 9-92 , 8 

57.0  1 1 7 7 . u 1 

1 112.3-5  7.1  2 1 16.9-51.3  2 174. 1-50. 5 1 1 26.7-51.8  2 l4i. 1-20,9 

1 144,2-24.0  2 147.2-2^.1  1 18/. 4-31. 9 ? 195.4-25.4  1 l64.7-9<,0 

1-188,8-54.4  > 17". 3-9  .0  I 172.4-93,4  1 1 /4,4-63.7  2 1/6.  .-50.6 

1 179,9-53.7  1 194,4-92.3 

5B  . 0 1 16  7.0  1 

1 115.4-52.0  2 1 19.5-91.4  2 174.^-90.5  1 131.3-*1.4  2 1 4 1 . 6-^  r»  . *, 

1 144,7-26.4  ? 14«.  1-19.2  2 19^.5-27.6  1 1 60.1  -60.9  2 1M.6--6.5 

1 166,2-57  .?  1 166. 7-93. i i l«t.6-57.9  1 1 66,2-63.4  1 1-  5.  /-;7.- 

2 191,3-46.7 

59.0  1 *4  o.o  1 

1 114,4-57.2  • 1 8.  ■•/-*>/.  3 1 n 5.0-9?.  8 1 1l»l.5-';2.4  * 1 4 1 , - 

2 147.7-19.0  1 1/.  8-2,  .9  / !*>.>, 4 — 23, 4 1 1}9.5-6j.6  2 l 

1 169.7-92.6  1 1/6. 9-45,0  2 179.J-87.0  1 1il.6-6J.0 

60.0  J 14  6 . U 1 

1 112,3-57.4  1 113.9-52.9  2 1^2.1-50.6  1 <77.7-61.1  2 

1 144,7-24.3  7 toi.  1-14.1  1 191.5-^7.4  7 196.9-72.9  1 

2 166,2-48.9  l 1 7 1 , V - > 2 . / 2 l 7 3 . 4 - 5 0 , 6 1 1 7 6 , 4 - 6 ^ , 7 

61.0  1 1 / 7.0  1 

1 111, 8-94. P ’ 124.  /-9J. 8 2 142.  1-20.6  1 144.7-2J 

1 l60.8-37,7  ’ 154,9-25.3  | 16,  .1-49, 6 > 1 1 . 6 - 1 

1 16  7.8-9  3.2  I 1 / 5 , 4 — • 1 .< . 7 t l‘,/.9-5r.9  1 1 / 9 . ->  - * , 


89 


AD-A033  709 


UNCLAMXFSCO 


P«C  INFORMATION  SCIENCES  CO  ROMe  N Y lB/, 

S}C5ASU!V|I^C  SOrT“"E  SUPPORT.  VOLUME  HI.  RADAR  SIONATUR~?K<U> 
OCT  76  PR  CONTI  F3060*-75-C-0167 

RA0C-TR-76-*6i-V0L-3  NL 


I 


1 

1*7, 8-53. n 

2 

191  .9-49,8 

62.0 

1 

9 4,0 

1 

1 

lift.*-*?.? 

2 

120.6-51,0 

1 

122.1-51 .6  2 

142,1-21.4 

1 

145. 2-2", 8 

2 

1*8.3-20.9 

2 

156.4-24.3 

1 

166.2-52.6  1 

1 77.5-53.1 

63.0 

1 

12  5.0 

1 

1 

113.4-53.* 

1 

117.6-52.8 

2 

142.6-21.7  1 

144.7-27.0 

2 

1*7.7-20,1 

1 

lSl.3-29,? 

156.4-23.3 

1 

1*9.5-49,2  ? 

1 61 . 1-46 . 7 

1 

1*2  . ?-50  , 4 

2 

164,7-49.4 

1 

168.8-53,8 

64.0 

1 

19  7.0 

1 

1 

112,3-63.0 

2 

1 15.4-80.6 

1 

117.0-52.3  2 

123.6-50.3 

2 

142.6-20,0 

1 

145,2-22.1 

> 

147.2-19,7 

1 

151.3-28,3  2 

154.4-25.1 

1 

163.1-53,1 

1 

1 6 J , 6-53 . 4 

2 

165.7-43./ 

1 

171,3-53.2  1 

1/3.4-53.1 

2 

177.0-49.8 

1 

190.6-52,5 

1 

182.6-53.4 

1 

1*8.9-52.9  1 

193.9-53.1 

65.0 

1 

17  6.0 

1 

1 

119.5-53.7 

1 

t2n.u-53.3 

1 

127.7-52.7  1 

131 .8-53.6 

2 

1«2 . 6-20 . 4 

1 

144,7-23.5 

2 

147.7-20.2 

1 

1*0. 8-32. 6 2 

154.4-25.0 

1 

1*5.2-63,4 

1 

177,0-54.7 

2 

179.5-5J.7 

1 

132.1-53,1  ? 

184,7-51.4 

1 

188.3  — 63,3 

1 

199,3-53.6 

2 

191.9-50.8 

66.0 

1 

10  5.0 

1 

1 

125,2-53.0 

2 

126.2-50.8 

2 

143.1-21.8  1 

145,2-31.1 

2 

148.3-19,8 

1 

151,3-26.9 

7 

1 54 . 4-22 . 7 

1 

158.0-50,9  2 

159.5-47.4 

1 

164.2-63, 3 

67 . 0 

1 

11  5.0 

1 

1 

111,8-53.0 

2 

148.3-16.4 

1 

151.3-25,5  2 

154.4-22.8 

1 

1*6.0-43,5 

2 

157.5-42.1 

1 

162.6-61.5 

2 

164,7-46,6  1 

1 72.4-53.4 

2 

1 7 o . 0 - 5 1 , 5 

1 

178,0-53.1 

68.0 

1 

17  7.0 

1 

1 

113.9-53.4 

1 

118.0-52.6 

2 

129.3-50,5  1 

132.4-51.3 

2 

144.2-19.3 

1 

151,0-33,2 

2 

154.9-24.2 

1 

160.6-50.*  2 

162.1-47.1 

1 

1*4.2-66.* 

1 

177, 5-52.0 

2 

1/9.5-51.0 

1 

181,6-52.5  2 

164. 2-*0 . 2 

1 

1°  7. 8-5?. 5 

2 

189,8-50.4 

1 

193.4-51.3 

69.0 

1 

U 5.0 

1 

1 

117.5-52,7 

7 

120.6-50.6 

2 

142.1-22.3  l 

144,7-30.4 

2 

147.2-21.4 

1 

149,8-29.7 

2 

152. 4-23. 4 

1 

161.1-49.2  2 

162.6-48.0 

1 

1*4.;-??,* 

1 

182.1-52.6 

70.0 

1 

11  5.0 

1 

1 

113,9-52.9 

2 

13O.8-6J.0 

1 

132.4-50,5  2 

144.2-20.4 

1 

146.7-21.5 

2 

147,2-19.4 

1 

151  .8-73.1 

2 

163.9-22.9  1 

163.1-50.6 

2 

1*6. 7-4*,? 

1 

172.4-53.1 

7 1 . 0 

1 

1 4 6.0 

1 

1 

117,0-53.4 

2 

120.0-50.9 

1 

121.6-51.9  2 

123.1-51.0 

2 

1*3.6-17  ,fi 

1 

150,8-25.0 

? 

152.4-24.0 

1 

1*5.7-53,7  1 

169.3-83.1 

1 

177. 0-6*. 5 

2 

183,7-49.0 

1 

168.3-51.5 

2 

189,6-58.4  1 

192.4-52.4 

72.0 

1 

13  6.0 

1 

1 

115,4-53.1 

j 

137. 3-5Q , 0 

2 

143.6-22.*  1 

145.2-26 . 7 

2 

1*7.  7-21  .9 

1 

150. 3-30  . « 

> 

152.9-74,7 

2 

1*1.6-47,9  1 

165.7-53.1 

1 

169.3-;?,* 

1 

170.5-53.4 

7 

1 92.4-55.2 

1 

I'M  .4-53 . 4 

73.0 

1 

13  5.0 

1 

1 

113,9-52.9 

1 

119,6-6 J.i 

2 

144.  7-21  .1  1 

146.2-63.0 

2 

1*0.3-19,1 

1 

150,8-22.1 

7 

152,9-71.6 

1 

156.0-47.7  2 

1 58.5-42.8 

1 

l*2.1-8?.? 

2 

164, 7-4*, S 

1 

16  7.  « -63.il 

1 

171.3-53.7 

74.0 

1 

14  6.0 

1 

1 

113.9-53.9 

7 

115.9-6? . 4 

1 

11 7.5-52.7  2 

122.1 -*1 . 1 

1 

1 ?6 . 2 -61  .* 

2 

145,7-17.1 

1 

1 51 .3-76 . / 

2 

152.9-25.7  i 

1 en  . 6-52 . 6 

2 

1*3.6-60,* 

1 

165.2-53,3 

1 

1 /9.C-53.6 

2 

184.2-50,6  1 

1 86 , ?-*2 . 7 

75.0 

1 

11  4.0 

1 

1 

118.5-52.9 

? 

146.7-71 .5 

1 

149.6-31.1  2 

152.4-62.2 

1 

1*0.  1-81  . 1 

2 

161, 6-46. p 

1 

1 66.2-53 . 7 

1 

1*7.2-53.9  t 

1 77 , 5-*3 . 6 

2 

1*0  . 1-60 . 9 

1 

182,1-53,3 

76 . 0 

1 

7 3.0 

1 
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1 

119,5-52.9 

2 

148.3-2U.V 

1 

150,8-23.7  2 

152.4-23.1 

1 

1*1 . 6-50 , 6 

2 

164,2-48.0 

1 

166.2-53,1 

77,0 

1 

14  5.0 

1 

1 

114,4-52.7 

1 

126.2-51.5 

2 

1^0.8-49,3  1 

133.9-50.5 

2 

147.2-16.5 

1 

X60 , 6-5? . 5 

? 

163.1-48.3 

1 

168.3-52.5  1 

170, 8-62 . 8 

1 

173.4-31.0 

2 

182,1-48,3 

1 

155,7-61,2 

2 

183.3-49,7  1 

191.9-02.6 

78.0 

t 

6 3.0 

1 

1 

120.0-53,4 

2 

146.2-19.9 

2 

152.4-26,7  1 

159.0-50.9 

2 

161.1-49.2 

1 

X64.7-S3.ft 

1 

167,2-53.2 

1 

183.1-53,4 

79.0 

1 

8 3.0 

1 

1 

XI 3 , 9-52 , 9 

5 

121 .6-50,6 

2 

144.7-26,5  1 

146.2-29.1 

2 

14,,.  1-21  , 7 

1 

15V.0-47.7 

1 

167, 8-52. 8 

1 

171,3-52,9 

80.0 

1 

15  6.0 

1 

1 

Xll.6-53.ft 

? 

122.6-49,3 

1 

129.3-50.8  2 

132,4-49.6 

1 

1^3. y-49,9 

2 

146.7-15,7 

1 

160,6-60.7 

2 

162.6-40,7  1 

1/2.4-53.3 

1 

176. 3-53.7 

2 

183,7-49. n 

1 

186.2-62.3 

2 

148.3-52.1  1 

190.3-5 3.3 

1 

192.9-3^,2 

8X.0 

1 

15  6.0 

1 

1 

120. 6-53.J 

5 

1 23.6-83,8 

1 

125.7-53.3  2 

431.3-^1.2 

1 

134.4-52,0 

2 

146, 7-18.1 

1 

1 49,3-29.5 

2 

161.6-25.3  1 

155,4-48.9 

2 

16/.  5-45. 9 

1 

164,7-53,? 

1 

1 66.  7-55.4 

1 

179.5-53.1  2 

182.1-61.3 

1 

144.  7-33.0 

82.0 

l 

V 4.0 

1 

1 

119.5-53.1 

> 

12«. 2-61,0 

1 

131.3-52.6  2 

145.2-30 .2 

1 

146. 7-34.6 

2 

151,3-23.7 

1 

1 58 , 0-81 , 5 

2 

162.1-49.2  1 

164.7-62.8 

83.0 

1 

9 4.0 

1 

1 

108,2-52.9 

? 

1 2 7.2-4 d, 9 

2 

147.2-15.6  1 

159,0-49. 7 

2 

1*1.6-40,0 

1 

177,5-52.3 

9 

183.7-47.4 

1 

189.3-52.0  1 

1 94.4-62.4 

84 . 0 

1 

6 2.0 

1 

1 

120,0-53.0 

2 

146.7-17,3 

i 

157.5-46.5  ? 

159.0-45.8 

1 

167.8-53,1 

1 

l«l,l-53.4 

85.0 

1 

6 2.0 

1 

1 

132,9-53.8 

1 

137.5-62,0 

2 

1 6 1) , 8 - 2 3 , 6 1 

153.4-44.4 

2 

154 . 9-4X  , 3 

1 

158.0-52.4 

86.0 

1 

13  6.0 

1 

1 

110,3-53.5 

2 

123.6-48.9 

2 

147.2-16.9  1 

159.0-40.4 

2 

1*1.6-46,7 

1 

164,7-50.4 

2 

166.2-49. 7 

1 

166.3-51,2  2 

169.0-60.1 

1 

173.4-33,0 

1 

178,0-52.7 

e. 

1 5 3 , 1-40,2 

1 

148.3-52,6 

87.0 

1 

17  8.0 

1 

1 

106,2-53.3 

1 

•*> 

S' 

1 

X 

2 

11 4. 4-51 . 4 1 

117.5-62.9 

2 

122.6-46,8 

X 

126,2-51.4 

) 

129,8- 5 y,l 

2 

134 . 7-49.6  1 

136.6-6U.5 

2 

14/.  7-17,7 

1 

156,5-47.4 

9 

168,5-44.1 

1 

166.2-33.2  9 

160.3-61.0 

1 

17..  . 1-3  1.1 

1 

179,5-5.3.1 

) 

1 74.4-85.3 

«8.0 

1 

) 3.0 

1 

1 

139, 5-53. 5 

9 

1 4 9.  "-93.8 

1 

l** . 7-44 . o 2 

1 54 . 9-44.5 

1 

1 07.  -8". 7 

2 

159,0-48.7 

1 

1^2.6-83,8 

89.0 

1 

12  4.0 

1 

1 

112.3-52. n 

1 

134,4-80.0 

2 

149. 8-16.0  1 

156.0-49,0 

2 

16J.1-47.3 

1 

166,3-51,8 

c 

l 69 ,0-50 . 1 

1 

172.9-52.9  1 

1 77.0-63,5, 

2 

144.2-47,* 

X 

188,8-53.8 

1 

193.9-62.7 

90. U 

1 

14  7.0 

1 

X 

109,3-53.4 

“9 

127,7-48,5 

l 

129. 3-49.n  ? 

130,0-48.0 

2 

147. 2-1*. 1 

X 

157,0-46,3 

> 

155.6-43,9 

X 

160.6-49.2  2 

182.6-48. U 

1 

1*6. 2-51  . 6 

2 

167,8-50.3 

1 

1 /\  .3-82.9 

1 

179.0-53.0  2 

194.4-65.5 
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3.0 

3,? 

24  • 4 

-21.8 

«.u 

3 , 0 

24.1 

-22,6 

5.0 

3,0 

24.7 

-22. U 

6.0 

2,0 

11.5 

-2i.  e 

7.0 

3 , n 

23.0 

-21.9 

6.0 

3.0 

23.0 

-22.4 

9,0 

4,0 

27.7 

-22.1 

10.0 

3,0 

23.0 

-22.2 

11,0 

4,0 

20.2 

-21.6 

12.0 

3,0 

25.1 

-21.9 

13.0 

3 , o 

24 . 6 

-21,9 

14,0 

3,0 

24 . 1 

-21.7 

15,0 

3,0 

24.6 

-21.5 

16,0 

3.0 

2’-> . 1 

-21.8 

17,0 

3 , 0 

24.6 

-'21.9 

16,0 

3,0 

24.1 

-21,9 

19,0 

3,0 

24,1 

-2U.8 

20.  U 

3,0 

24.6 

-21.1 

21.0 

3,0 

24.1 

-2(J,9 

22,0 

3,0 

23.6 

-20.3 

23,0 

3,0 

23.6 

-19,6 

24,0 

3,0 

24 . 1 

-20.1 

25,0 

3,0 

23.6 

-3  8.9 

26,0 

3,0 

23,1 

-19.2 

27,0 

3,0 

23 . 1 

-18,6 

28,0 

3,0 

22.6 

-18,4 

29,0 

3,0 

2?.6 

-19,8 

30.0 

3.0 

2?. 6 

-20,2 

31,0 

3 , 0 

22.6 

-21.0 

32,0 

3,0 

22.0 

-21,2 

33.0 

3,0 

22.0 

-21.1 

34,0 

3 , 0 

21.5 

-21.4 

33,0 

3,0 

21  . 0 

-20.9 

36,0 

3,0 

21.0 

-20.6 

37,0 

3,0 

i\  . 6 

-2o  , 8 

3e , u 

3.0 

20,5 

-?0,3 

3 V , o 

3,0 

2 0 . 5 

-19.3 

40,0 

3 , 0 

2 0 . 0 

-19,2 

41,0 

3.0 

19.5 

-19.2 

4 2 , 0 

4.0 

24.7 

-20,8 

43,0 

4.0 

2?  . 2 

-20,7 

44,0 

3,0 

19.5 

-21,0 

45,0 

3 , 0 

13.5 

-20.5 

46,0 

4 , n 

24 . 1 

-20 . 6 

4 7,1) 

4 . n 

24.1 

-20.3 

4 6 , 0 

3 , o 

1 7 . 5 

-19.9 

4v,0 

3,0 

17.5 

-18,4 

5U,U 

4 , n 

24 . 1 

-19,1 

51,0 

4.0 

23.1 

-20. ‘ 3 

52,0 

3.0 

16.4 

-20,4 

53 , 0 

3.0 

16,5 

-2,1,3 

54,0 

4,(1 

21.6 

-21,0 

55,0 

3.0 

16.1) 

-2  J , 4 

56,0 

J,n 

1*5.  4 

-19.9 

5 7,0 

3,0 

14.3 

-2J.1 

56,0 

4 , n 

2 3 . 0 

-1  7,2 

5y,o 

4 . 0 

17.5 

-17.9 

60,0 

3.0 

1 '.9 

-17.1 

61,0 

4.0 

14,5 
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62.0 

3,0 

13. 3 

- 2 o . 9 

63,0 

4,o 

l «.•» 

-'^J.l 

64,0 

3,0 

1 j . * 

-19.7 

6b . 0 

3.0 

11.* 

-2J.2 

66,0 

4,o 

It' . 4 

-19,6 

67.0 

3,0 

9.2 

-16.4 

66.0 

3.0 

17.9 

-19.3 

6 V . 0 

4,0 

2!-  , 5 

-21.4 

70,0 

3,0 

y . 7 

-19,4 

71.0 

2,0 

* . * 

-1/  .ft 

72,0 

4.0 

15.0 

-21.9 

73.0 

4,0 

l 3 . * 

-19.1 

74,0 

2,0 

7.2 

-17.1 

75,0 

3.0 

14.9 

-21.5 

76,0 

3 , o 

15.9 

-?0.9 

77,0 

1,0 

0, 

-16,5 

76,0 

2,o 

(\ , 5 

-19.9 

79,0 

?,0 

J . '< 

-21.7 

4(J,0 

1.0 

• 

-1  5. 7 

*1.0 

3,0 

1*.* 

-1  9, 1 

*2,0 

3,0 

15.9 

-23.7 

*3,0 

1,0 

0 . 

-15.6 

*4,0 

1,0 

1 | 

-17.3 

*5,0 

2,0 

4 . 1 

-23.6 

*6,0 

1.0 

o. 

-15.9 

*7,0 

2.0 

lO." 

-17.7 

*6,0 

3.0 

9.2 

-ps, a 

*9.0 

1 .0 

*» 

• 

-19.6 

90.0 

2.0 

M . 3 

-la.  1 
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SIGNATURE  SUPERPOSITION  PROGRAM 


A 36  Documentation 

1.  General . This  exhibit  is  a documentation  of  Electronic  Data  Process- 
ing (EDP)  Program  A36,  Signature  Superposition  Program,  produced  under 
Contract  AF30(602) -67-0074  for  RADC  by  the  Fort  Worth  Division  of  General 
Dynamics.  EDP  program  A36  was  originally  written  for  use  with  an  IBM  7040- 
7090  direct  coupled  system;  however,  in  this  documentation  the  necessary 
changes  have  been  incorporated  to  make  the  program  compatible  with  the  GE 
625/635  computer  at  RADC.  This  documentation  has  been  prepared  in  accord- 
ance with  Electronic  Data  Processing  (EDP)  Programs  and  Program  Document- 
ation, Requirements  for  Preparation  of.  Exhibit  RADC -30 10  of  17  January 
1964 . 

2.  Abstract.  The  purpose  of  this  procedure  is  to  perform  the  analytic 
superposition  of  various  generic  radar  targets  using  measured  scattering 
data.  The  superposition  of  these  generic  shapes  produces  synthesized 
cross  section  and  phase  data  for  a composite  radar  target.  The  library 
data  processed  by  this  procedure  is  obtained  from  nagnetic  tapes  produced 
by  procedure  A24.  The  output  of  A36  can  be  obtained  on  magnetic  tape  and 
on  a printed  listing. 

3.  Machine  Definition.  The  enclosed  documentation  is  written  in  Fortran 
IV  language  using  an  IBM  character  set.  This  documentation  is  specific- 
ally designed  for  use  with  the  GE  625/635  computer  at  RADC. 

4.  Program  Description.  Figure  1 contains  a simplified  logic  diagram  of 
A 36.  Basically,  the  program  consists  of  a main  program  and  a set  of  sub- 
routines. These  divisions  are  described  below. 

^•1  Main  Program.  The  main  program  is  used  to  call  problems  and 
subroutines  and  to  assign  the  correct  unit  designations  to  each  of  the 
three  library  tapes  which  may  be  used  as  input. 

4.2  Subroutine  READT.  This  subroutine  is  used  to  read  cross  section, 
phase,  and  azimuth  data  from  the  library  tapes. 

4.3  Subroutine  FLFXR.  This  subroutine  is  used  to  convert  the  fixed 
point  library  data  to  floating  point  for  use  in  the  main  computations, 
and  to  convert  composite  cross  section,  phase,  and  azimuth  data  back  to 
fixed  point  for  output. 


4.4  Subroutine  EXEC.  This  subroutine  processes  and  accuaulates 
cross  section  and  phase  data  for  each  shape  and  computes  the  composite 
data  for  the  composite  shape. 

4.5  Subroutine  PL4020.  This  subroutine  plots  the  composite  data 
as  a function  of  aspect  angle. 

4.6  Subroutine  0UTPR(6).  This  subroutine  writes  composite  data 
on  Uhit  6 for  listing. 

4.7  Subroutine  0UTPR(8).  This  subroutine  writes  composite  data  on 
the  aagnetic  tape  on  Unit  8. 

4.8  Subroutine  ZEROS.  This  subroutine  places  zeros  (0.)  in  a large 
number  of  storage  locations. 
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6.  Instructions  to  Customer  - Procedure  A36 


6.1  Input  Data 

6.1.1  Library  Data 

1.  Input  library  tapes  are  identified  by  a label  of  the 
form  XXXXXXA01  where  XXXXXX  is  the  job  number  under  which  the  tape  was 
written  by  procedure  A24. 

2.  Up  to  three  magnetic  tapes  may  be  used  for  input 

data.  Tapes  ca  ot  be  switched  or  mounted  during  a production  run, 
so  the  order  i hich  tapes  are  designated,  and  the  number  of  tapes 

designated  must  be  the  same  in  all  problem  decks  within  a given  run. 

3.  Format  - BCD;  Record  Length  ■ 14  words.  Each  record 
represents  one  80  column  punched  card.  There  is  one  file  on  the  input 
tape  for  each  polarization  condition  for  each  generic  shape. 

4.  Description  of  input  file  (by  "card") 

Card  1 

Column  1-80  Alphameric  File  ID 

Card  2 

Column  1-80  Alphameric  File  ID 

Card  3 thru  N+2 

Same  as  for  output  file  (see  Section  6.2.1)  except 
column  78-80  contains  A24. 

6.1.2  Problem  Data  (Punched  Cards) 

1.  Each  problem  deck  consists  of  N*2  cards  where  N is 
the  number  of  generic  shapes  to  be  processed  in  that  problem.  These  cards 
must  be  numbered  sequentially  thru  N*2  in  Column  77. 

2.  The  format  of  each  problem  is  as  follows  (variable 
names  are  explained  under  (3)  below.  An  asterisk*  beside  a variable  name 
indicates  that  a decimal  point  should  be  used) : 
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V 


Card  1 


Col  1-30 
Col  31-33 
Col  34-37 
Col  38-40 
Col  41-43 
Col  44 
Col  45 
Col  46-51 
Col  52-55 
Col  56-60 
Col  61-62 
Card  2 


Col 

1-6 

Col 

7-9 

Col 

10 

Col 

11- 

16 

Col 

17- 

19 

Col 

20 

Col 

21- 

26 

Col 

27- 

29 

Col 

30- 

32 

Col 

33 

COMTRG 

NSHAPS 

NPTS 

I PITCH 

I ROLL 

IP0L(1) 

IP0L(2) 

FREQ  * 

IDLTH 

ITHTAO 

NTAPES 

IFILID(l) 

NFILES(l) 

BLANK 

IFILID(2) 

NFILES(2) 

BLANK 

IFILID(3) 

NFILES(3) 

BLANK 

IOP(l) 
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Col  34 


Col  35 
Col  36 
Col  37 
Col  38-43 
Col  44-49 
Col  50-62 


I0P(2) 

I0P(3) 

I0PI(1) 

IOPI (2) 

ISGMIN 

ISGMAX 

BLANK 


Col  9 
Col  10-13 
Col  14-17 
Col  18-21 
Col  22-25 
Col  26-29 
Col  30-33 
Col  34-37 
Col  38-41 
Col  42-47 
Col  48-53 
Col  56-60 


card  per  generic  shape) 
I UN 

LOCSHA 

- AZSFT 
NSHADS 
ISHADW  (1,1) 

ISHADW  (2,1) 

ISHADW  (1,2) 

ISHADW  (2,2) 

ISHADW  (1,3) 

ISHADW  (2,3) 

ISHADW  (1,4) 

ISHADW  (2,4) 

RHO 

DEE 

BLANK 
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All  CaTds 


Job  Number  (supplied  by 
Operation  group') 

P 


Col  63-68 
Col  69 

Col  70-72  Problem  deck  number 

Col  78-80  A36 

All  data  beside  which  no  * appears  must  be  right  adjusted 
in  the  specified  columns  (except  COMTRG,  which  is  any  combination 
of  30  alphabetic  and  numeric-characters)  without  decimal  point. 

3.  Input  Variables 

UNITS  NAME  USE 

COMTRG  30  Character  composite  target  id 
NSHAPS  Number  of  generic  shapes  for  problem 
NPTS  Number  of  points  to  be  processed 

Deg  IPITCH  Pitch  Angle 

Deg  I ROLL  Roll  Angle 

IPOL(l)  Transmitter  polarization  (H  or  V) 

IPOL(2)  Receiver  polarization  (H  or  V) 

GHz  FREQ  Frequency 

Deg  IDLTH  Azimuth  increment  for  processing  (X10) 

Deg  ITHTAD  Initial  azimuth  for  processing  (X10) 

NTAPES  No.  of  input  tapes  used 

IFILID(N)  Col.  63-68  of  Nth  input  tape  (File  Tape  ID) 
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UNITS 

NAME 

USE 

-- 

NFILES(N) 

No.  of  files  on  Nth  input  tape 

-- 

IOP(2) 

1,  write  tape;  0,  do  not  write  tape 

IOP(l) 

1,  print;  0,  do  not  print 

— 

IOP(3) 

1, plots  desired;  0,  no  plots  desired 

— 

IOPI(l) 

1,  plot  amplitude;  0,  do  not  plot  amplitude 

— 

IOPI (2) 

1,  plot  phase;  0,  do  not  plot  phase 

Db 

ISIGMIN 

MINIMUM  ampl.  for  plots  (xlO) 

Db 

ISIGMAX 

MAXIMUM  ampl.  for  plots  (xlO) 

I UN 

Input  tape  for  shape  (1,2, or  3) 

— 

LOCSHA 

File  (of  input  tape)  which  contains  shape 

-- 

IAZSFT 

Processing  will  start  at  IAZSFTth  azimuth 

— 

N SHADS 

Number  of  shadow  regions  for  shape  (0,l,2,3,o4  4) 

— 

ISHDW(l.J) 

Subscript  of  start  azimuth  of  Jth  SHADOW 

-- 

ISHADW(2 ,J) 

Subscript  of  end  azimuth  of  Jth  SHADOW 

RHO 

Aspect  Angle  used  for  positioning  generic  shape 

inches 

DEE 

Radius  arm  length  associated  with  RHO  in 
positioning  generic  shape 

D egrees 

I PHIZ 
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6.2  Output  Data 


6.2.1  Magnetic  Tape 

1.  Format  - BCD;  Record  length  - 14  words.  Each  record 
represents  one  80  column  punched  card.  There  is  one  file  on  the  output 
tape  for  each  composite  shape. 

2.  Description  of  output  file  (by  "card")* 


Card  1 
Column 

1-80 

Alphameric  File  ID 

Card  2 

Column 

1-80 

Alphameric  File  ID 

Cards  ! 

5 thru  N42 

(where  N-  NPTS/4  J-)  if 

NPTS-0  mod  4,  J»1  otherwise) 

Column 

1 

Blank 

Column 

2-6 

1st  azimuth  value  (degrees  X10) 

Column 

7-10 

1st  ampl.  values  (dBsm  X10) 

Column 

11-14 

1st  phase  values  (degrees) 

Column 

15-28 

Repeat  1-14  for  2nd  values 

Column 

29-42 

Repeat  1-14  for  3rd  values 

Column 

43-56 

Repeat  1-14  for  4th  values 

Column 

57-62 

Blank 

Column 

63-68 

Six  digit  tape  number 

Column 

69 

Mpll 

Column 

70-72 

Three  digit  file  number 

Column 

73-77 

Five  digit  card  number 

Column 

78-80 

A36 
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6.2.2  Printed  Output 

The  printed  output  of  Procedure  A36  consists  of  • listing  which 
is  identical  in  format  to  the  output  tape  described  in  6.2.1.  Each 
printed  line  represents  one  tape  record  "card". 
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COMMON/P/  NSHAPS,  LOCSHA,  IFXLE  ( 1 2 ) » IAZSTT,  l.'PT,  IUN,  NFILES(12), 

1 HPT?  . IDLTH,  N3HADS,  ISH ADW  (2.4),  PHO,  DEE,  I0P'(2), 

2 TOP  ( 3 ) « C0HT»G(5)/  IBSTLe,  IPlTCH.  IROLL,  IPOL(2)» 

3 flEQ,  SQSflRE,  SQSGXM,  PH.  ICOUNT,  IDATA( 3*1 0.4) . 

4 XPDESU),  ZPHZl  ,IE0F(12J 


DtMENSIOH  CRESlG(3610),  CIMSIG<361  ),  SXG!36i  ),  PHIUMO). 

1 THET ( 36  1 0 ) , LMSlG (3610).  AHPHI(3610)  , 

2 CARD<  1C1.XPa*(8),TPE»(8),  X 1 ( 2 ) . H(2) 


eouivalehce 

1 

2 

3 

4 
3 
6 


( CRESIGM), 
( CIMSIO(I), 
( THETM), 
( SZGM), 

( PHZ ( 1 ) . 

( AMSIG ( 1 ) . 
( aMFHZ(I), 


ZPATA( 1,3) ), 
ZDATA( 1,4) ), 
ZDAT*(1»  1))# 
ZDATAt 1,2)  )# 
ZDATAl  1,3)  )# 
IDATA(  1,1)), 
ZD*Ta( 1,2)  ) 


COMMON  /BLOCK  1/  THETAO, XDLTX 
common  /block2/  sxgmin,sigmax 
common  /blockv  xfilid(3),  nrun 


5  NrUN  * 0 
PPINT  2222 

2222  format  (33h  at  completion,  save  tape  oh  unit  a As  per  jor  sheet) 


Rewind  08 


c 

c 

c 

c 

c 

c 

c 

c 


10  REWIND  12 
IEILEM2)  * 1 
rewind  iO 

IFILeMOJ*  i 

Rewind  n 

IFILe l 1 1 ) a 1 
2o  call  zeros 
NRUN  * NRUN  ♦ 

Read  (s.ioosj 

1 

2 

coktbg  - 
nshaps  - 

NPTS  - 
IPITCH  - 
IROLL  - 
IP0L(1)  - 
IPOL ( 2 ) - 
FREO  " 


1 

COMTRG,  NS H a?S,  NPTS,  IPITCH,  IF. OLL.IPOI.FReO, 

IDLTH.ITHTaO.NTaPES,  (IFILIDi J) .NFIIES (J) ,J« 
iclti,  iof,  iopi,  isgmin,  tsgmaX,  ibsfle 

- 30  CHARACTER  COMPOSITE  TARGET  id 

- NUMBER  OF  GENERIC  SHAPES  t>  BE  PROCESSED 

- NUMBER  or  POINTS  to  bE  REaI  FROM  TaPE(S) 

- PITCH  ANGLE 

- ROLL  ANGLE 

- tfansmittfr  polarization  (K  or  V) 

- receiver  polarization  ;h  cp  v^ 

- FREQUENCE  (GHZ) 


1,3 


9 
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c 

nta! 

IS 

mmm 

e 

xmxo 

J) 

mmm 

c 

NPXLES 

J) 

••• 

c 

XOP 

J> 

— • 

c 

XOP 

2) 

TL_ 

XOP 

3) 

»-• 

e 

X011 

i> 

c 

loll 

3) 

c 

X6GNXN 

••• 

C 

xsghax 

c 

-C— 

XbSPVE 

T DlTH  — AtlMOTH  INCREMENT  FOR  PRSCFSSjNG 
KITlAt  AlIHUIH  FOl  MflCESSIKB 
N0HHB  Of  INPUT  "*a!b»  U#2,  0*  3) 

COL.  6J-68  or  J*H  I»rni  TAft 
hUmiii  or  rxizi  or  jth  xrrut  t«h 


1»TA»I 

1jU0TI_ 

ifUOT  SZGHA 
i,noT  pxase 

HX«ZHU|t  SigHi 
SlBHX 


— noTtxra  xrcrzHxri 


c.ro  Mx*» 

C.ro  TAPI 
o.io  Hftf 

C.po  roriiOT  sioM A 

o.po  fox  not  phasi 
Value  ro»  hot 
vaiwi  roi  not 


xr  (NUUK  |NE,  1 ) GO  To  15 

c**#*  chkck  Unit  setups  ** 

XJH  = 0 ♦ NTAFgS 
DO  3 IUHIT  ■ 10,LXH 

_ lUD  UV*IT»1001|  {ca*p<d»i*i»  10) 
read  (iunit.  ' 000 J (cArD?i)#x*i»i) 
brad  (xv rxT,iooo)  iritu 

DO  1 1 X • I.NTaPES 

11  xr  ( iritiDd)  ,eb,  xrxLEi  ) 90  to  12 

GO  TO  14 

12  XPPES(X)  ■ IUKXT 
VIITE  (6.3006)  irpES(l) 

3 06  roBHAT  ( X7) 

KriLis(iumT)  «=  npiles(i) 

13  HgWlHp  XUBIT 
GO  TO  15 

14  white  (6.3000)  XTXI.il*  XUmT 
call  exit 

C****  UNITS  ASSIGNED— EXEcVTE  problem  •• 

15  IF ( XDLTH  .LE.  0)  XDLTH  ■ 1 
IDLTX  I*  XDLTH 

THETA  * FLOaT(ITHTaO)  / 10,0 
SIGHIN  - FL0AT { ISGWlM ) / 10,0 

sIgmax  - rLo at ( issh Ax ) / to.o 

DO  40  HSHxPE  ■ 1*  HSHaPS 

Bead  (5.2005)  IUN,L0CSHA#lAz3*'T,NlHADS.({ISHAD>MI.J).X»r.2),J-1,4) 
1.  BH0,DEE*XPHIZ 

XF  (IAtsrT  • LE,  0)  XAZSrT  - 1 
ION  = IFDES(IUN) 

c*#**  SObPOUTiEE  PEaDT  IEaDS  DaTa  POP  generic  SHaPE  •* 

Cx J-J*  REaDT(KERROB) 

GO  TO  (1,2)  * KEBBOB 

c**#*  ENTRY  FFlOT(SOBB  rirXR)  CONVERTS  DaT*  to  FLOATING  pt,** 

1 CALL  FPLOT 

C4***  SOBBOUtIBE  EXEC  PROCESSES  aND  ACCVHULATEI  DaTa  TOR  EACH  SHaP*  ** 

40  call  exec 

c****  entry  thsgph ( SUBR  EXEC)  CALCULATES  composite  or  generic  shapei  •• 
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CALL  THS9VH 

C**«*  SUBROUtl»*  PL-020  PLOTS  COMPOSITE  D At A OH  RADC  PLOTTER 
IptlOPO)  ,EQ.  U CAll  f L4020 

c****  ehthy  ffxxr(svhr  flfxrj  converts  composite  data  to  integer  ** 
call  rrixR 

C****  SUBROUTINE  OUTPR(J)  writes  COMPOSITE  data  n unit  j • ♦ 

IP  ( IOP ( 2)  .EQ.  1)  CALL  OUTPl(B) 

Ip  (IOPM)  .Eg.  1)  Call  OUTPR(61 
f RoblBk  COMPLETE  at  THIS  POINT  ** 

GO  TO  20 

c 2--PILE  REQUESTED  GREATER  THAN  NO, OP  FILES  ON  TAPE. 

2 WRITE  (6.10C6)  LOCSHa,  NFlLES(IUN),  IUN 
GO  TO  10 

C*****FORMAT  STATEMENTS***** 

1 00  TORMAT  (62X,  16) 

1 01  FOBMaT(10a6) 

1 05  FORMAT (5a6,I3,I4#2I3, 2a 1,F6. 3#I«. 15,12/3 (16, 13, IX), 12,511, 3l6) 

2 05  FORMAT  ( 11,13,14,  I 1 , 814 , p6 , 3, F6 , 3, 2X, 15 ) 

1 06  FORMAT  ( 13,  SH  REQ.,,  13,  14h  FILES  ON  TaFE,  12) 

2 00  FORMAT  (<H  FILE  ,16, 10H  ON  UNIT  ,l2,12H  NOT  PgQ  Q.) 

c* ************************* 

1003  FORMAK 10X.27HINPUT  ERROR  ON  FIRST  RECORD) 

1 04  F0RMAT( 10X,28HINPUT  ERROR  ON  SECOND  RECORD 

1 07  FORMaK 10X,33hINPUT  ERROR  ON  SUCCEEDING  RECORD*) 

END 
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SUBROUTINE  REaDT(KERRoR) 


CoHMON/P/  NSHAPS,  IoCSHA,  IFlLE(l2),  IklStT , NPT,  JUN,  KflLlSJU), 

1 NPTS  t IDLTH,  NSHADS,  ISH*DW(2,U),  *HO,  DEE,  IOP1<2>, 

2 ZOP  ( 3 ) • cOHTRg  { 5 ) , iBSfLj,  XPITcH,  IROJ.I,  IPOl(2), 

) f REQ,  SQSORE,  5Q3GIM,  PH,  ICOUNT,  IDATA < 36  10 , U ) , 

0 XFDES  ( 3 ) , XPHIZ,  IC0PM2) 

common  /p Lag  / It*m  _ 

DIMENSION  CARD  (10) 

DIMENSION  CRESIG ( 36  1 0 ) , CJMSIG < 36 1 ' ) , SJG(351  ).  pHZ ( 36 1 0 > # 

1 THEK3610),  aM*IG(3610),  aNPHX(3610) 


equivalence 

1 

2 

3 

4 

s 

6 


KERROR  « 1 


IP  (LOCSHA  ,GT,  NFILES ( IUN  ) ) GO  JO  50 

io  call  rLGfOF(iuN,iioPdUN) ) 

ip  ( LOCSHA  .NE.  IPILE  (IUN))  GO  TO  30 
READ  ( IUN#  1008)  (CA*D(I)#I*1»  1-3 
READ  ( IUN  f 1008  ) (CA*D(l)#Ix1*6) 

RBaD(IUN.20C8)  ((  IDaXa(NPT#NVaR).NVA»“1#2),NPT*i,NPTS) 

20  READ ( IUNf  1009  ) BLANK 

IP  (IEOF(IUN)  ,GT,  0)  GO  TO  60 
GO  TO  20 

30  IF  (LOCSHA  ,GT.  IPILE  (IUN))  GO  TO  «0 
REWIND  IUN 
IPILE(IUN)  = 1 
GO  TO  1C 

40  DO  41  NCA*D  *1,900 
READdUN,  1009)  BLANK 

41  continue 

42  READdUN,  1009)  BLANK 
ir(IEOP(IUN)  , LE , 0)  GO  TO  42 
IEOF(IUN)  = 0 

IPILE ( IUN ) * IPILE ( IUN ) ♦ 1 
GO  TO  10 
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( CRlSIG ( 1 ) , XDATA( 1,3)  )» 
( CIKSIO(I),  idATA(1,U))< 
( THET(I),  XD*Ta(1,1)J, 
( SIG ( 1 ) , ID At A ( 1 » 2 ) ) » 
( PHI ( 1 ) , XDATa(1#3)1# 
( A^SIO ( 1 ) , XDrTa (1,1))# 
( AHPHtM),  xdata(i.2)J 


50  KEFROR  ■ 2 
RETURN 

60  XFHE(IUN)  = IFILI(IUN)  ♦ 1 
XEOF(IUN)  = o 
return 

C*  * * * roRKAT  STATEMENTS  **** 

1 08  FORM AT { 10A6) 

1 09  FORMaT(A6) 

2 00  FORMAT  ( 4(  6X.2I4)) 


END 
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riFst 

2 

3 

U 

5 

6 
7 

* 

9 

1 ' 


subbounini  nrxi 

PILJMITB*  or  SUBROUTINE  STATEMENT  is  jLIeSaL 


1 

2 

3 

U 


NSH APS , I3HADW(2,4).  RHO,  DEE . X0P1<2). 
Rg  { 5 ) » IBSpLj,  IP*  TCH*  IBOLt,  IPOL(2). 

, SQSGXK,  PH.  ICOUBT,  ID»Ta ( 36 1C, 4 J , 

U«*  v.AB /lit 


NPTS , IDLTH , 

XOP ( 3 ) # COMTRG 
flEQ,  SQSflRE.  _ . . . . 

If  DES  ( 3 ) f IPHll#  XEOPM2J 


DlMENSf OB  C*ESXG(361(n,  ClMSlG ( 36 ) 0 ) . SlG(361'),  PHI (3610), 
1 THEN  ( 36 10 ) i AMIIO(3310),  AHPHX(16lO) 


11 

12 

EQUIVALENCE 

( CRISIS ( 1 ) , 

IDATA (1,))), 

13 

( ClKSlO ( 1 ) , 

JpATA ( 1,4)), 

14 

2 

( THITM), 

IDaTaM.I)). 

15 

3 

( 510(1), 

IDAIaM,2))» 

16 

4 

( PHI ( 1 ) , 

IDAtA< 1*3) )* 

1 7 

S 

< A«SIG(1), 

XPAtA<1»11)* 

18 
1 q 

6 

( aMPHIM), 

IPAlA* 1*2) ) 

2? 

21 

22 

ENTRT  PEIOT 

rUKcTIOB  IVTRT  MUST  HAVE  an  argument  list 
ENTRT  STATEMENT  XS  ILLEGAL  in  MAIN 

23  DO  10  NPT  * 1.NPTS 

24  AMSlG(NPT)  * rLOAT(IDATA(NBT*  1 ) ) / ^.O 
IDaTa  is  AN  UNDIMENSIONBD  aBBaT  OR  an  INVALID  rUNctXON 

■ 25  10  AMPHI(NPT)  * ID AT A ( NPT, 2 ) 

IDaTa  IS  an  UNDlHENSIO»ED  ArBaI  OR  an  INVALID  rUKcTIOB 

26  RETURN 

RETURN  STATEMENT  IS  ILLEGA1  1(1  «aIN 

27  entrt  rrxxR 

function  intit  must  have  a*  argument  list 
entrt  STATEMENT  is  ILLEGAL  in  k*in 

28  DO  20  NPT  »•  1 , XCOUNT 

29  RND  * 0,5 


3 

3 • 

IDaTa 

32 

33 

34 

idata 

35 

IDATA 

36 

RETURN 

37 

•STOP' 

idata 

IDATA 


ir  ( thet(npt) 
I6aTa(»PT, 1) 


,LT,  0, ) END  ■ •' 
THET(NPT)  * 10.0 


IS  an  UNDIMENSIONED  aBBaI  OB  A MISPLACED  asT 


1 5 

* rnd 


RNd  * 0.5 
IP  ( SIG(BPT) 
IDaT  a ( NPT*  2 ) 


.LT,  C,)  END  * 
SIG(NPT)  * 


-C.5 

10.0 


IS  AN  UNDIMENSIONED  ArBaI  OR  a MISPLACED  Asr 

20  IdaTa(NPT.3)  =*  PHI  ( NPT ) ♦ 

IS  aN  UNDIMENSIONED  ArRaY  OR  a MISPIaCED  ASP 
RETURN 

statement  is  illbgaI  in  main 

END 

statement  is  missing-simulated 

IS  OSED  BS  AN  ARRAT  IN  AN  EQUIVALENCE  STATEMENT 
IS  USED  AS  AN  ARRAT  IN  AN  EQUIVALENCE  STATEMENT 


RND 

0.5 


BUT  is  not  DIMENSIONED 
but  is  NOT  DIMENSIONED 
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IDATA 

IS 

USED 

AS 

AN 

array 

IN 

AN 

EQUIVALENCE 

STATEMENT 

BUT 

IS 

NOT 

DIMENSIONED 

idata 

IS 

USED 

AS 

AN 

ARRAY 

IN 

AN 

equivalence 

STATEMENT 

BUT 

IS 

NOT 

dimensioned 

idata 

IS 

Osed 

AS 

AN 

ARRAY 

IN 

AN 

equivalence 

statement 

but 

IS 

NOT 

dimensioned 

IDATA 

IS 

CSED 

AS 

AN 

ARRAY 

IN 

AN 

EQUIVALENCE 

statement 

BUT 

IS 

NOT 

dimensioned 

IDATA 

IS 

used 

AS 

AN 

array 

IN 

AN 

EQUIVALENCE 

STATEMENT 

BUT 

Is 

NOT 

DIMENSIONED 

Ill 


w 


SuBRoufI»E  EXEC 

C6MM6¥*P/T»SHAPS;  IOCSRA,  irXU(  tZ) , IIXSIT,  TIFT,  XUS,  NriLlS{V2J, 

1 SPTS  # IDLTH,  NSHADS,  I»HADW ( 2 , 4 ) « «HO,  DEE,  I0P'(2), 

2 ZOP  ( 3 ) i COHTIg  { 5) , jBSf  Lg,  XPXTCH,  XBOLl,  IP0L(2), 

3 plEQ,  SQSOPE,  SQSGIH#  ?H.  XCOUST,  IDATA ( 36 10, a ) , 

4 XPDES ( 3 ) , XPHXZ,  IE0PM2) 

DXmENSIOE  CSEsXg ( 36 1 C } , ClHSIa(36iO),  SXGT3 *TC),  PHIC36105, 

1 THEY ( 36 1 0 ) , AM*XG(3610),  AMPHX(3610) 


EQUIVALESCE  ( CRESIO(I),  IDATA(l,3))» 

1 ( CIKSIO(I),  IDATA ( 1 * 4 ) ) » 

2 ( THETM),  XDATa(i,D), 

3 ( SIQ(I),  idata(i#2))» 

4 ( PHI ( 1 ) , IDATA ( 1 » 3 ) ) » 

5 ( AKSIGM),  IDATA(1*1))» 

6 ( aMPHK  1 ) , idata(i»2)) 


COMMON  /E10CK1/  TKETAO, NTH 
DATA  P1 1 80  / . 174532925E-1/ 

DLTHT  • PLOaT(IDLTH)  / 10,0 
COETF  « DEE  * 720,  * FREQ  / 11,81 
N'  = NPTS 
X"  * iazspt 
ICOUNT  * 0 

5 DO  20  HPT  ■ 1 1 » H 1 , NTH 
ICOUNT  * ICOUKT  ♦ 1 

IP  ( NSHADS  .LB,  0)  GO  TO  11 
Do  10  K=1, NSHADS 

10  IP  ( NpT  *GE.  ISHADW(I.K)  ,A»D. 

1 NPT  iLg.  XSHApW  { 2,  K )>  GO  TO  2'. 

11  AfiG  = Pi  1 80  * ( RHO  - 0lTHT*FlOAT(xcOaHT-1) ) 

PH  jZ  n tPHjZ 
PHIZ  » PHIZ  /10,0 

PH  * AKOD  ( AMPHI(NPT)*PHIZ  ♦ COErP*COS( AHG) , 36  ,) 
SQSG  * 10.0  **  (aMSIG(HPT)  / 20.0) 

*RG  * PI18C  * PH 
SOSGIM  * SIN(A*G)  * SQSG 
SpSGRE  * COS(^RG)  * SQSG 

CtMSIG(IcOUNT)  = CIMSIG(ICOUNT)  ♦ SQSGIM 
CBESIG(ICOUNT)  * CHESIG(ICOUHT)  ♦ SQSGRE 
20  CONTINUE 

ip  (II  ,EQ.  1)  RETURN 

II  « ' 

N 1 * IAZSPT 
GO  TO  3 
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ENTRY  thiopk 

do  30  NPT  - 1,'XCOUNT 

THET ( NPT ) * DLTHT  * PLOAT(NPT-I)  ♦ THETAO 
A 1 = CIMSI® ( NPT ) 

A2  CRESIG ( NPT ) 

ARO  = AVa2 

ARG 1 = A 5 * A 1 ♦ A2*R2 

If(  ARGi  ,LE,  .OOOOQl)  50  T0  301 

StG(NPT)  ■ 10,0  * aLOGIO(aRGI) 

GO  TO  35 

301  SIG(NPT)  ■ -80. 

35  IP(a*G)  40,50,60 

40  IP  ( A 1 ) 50,50.70 
60  If  (A1  ) 7o,5c»5o 
7o  A6J  = l8fl*0 
GO  TO  8C 
50  AO«J  * 0,0 

bo  phase  = atan(arg)  / Piieo  ♦ adj 

IP  (PHASE  ,LE.  0,)  PHASE  = PHASE  ♦ 360,'' 
30  PHI(NPT)  = phase 

return 

END 
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SUBROUTINE  outpr  (K) 


1 


COMMON/P/  NSHAPS  LOCSHA  IFILE  ( 1 2 ) , IAZSF"',  KPT  lUN,  NPILES(12), 

1 NPTS,  IDLTH,  NJhADS,  TSHADW  1 2# 4 ) , FHO,  DEF,  IOP’<2), 

2 lOP  ( 3 > , c0«THG(5),  iBSrip  lPlTcH,  iROLt#  lP0'L(2), 

3 PReQ#  SQSSFe#  SQSGiM,  PH.  lCOUNT,  IDA^A  ( 1'->«  4 ) » 

4 IFLES(3),  IPHlZ,  l£OP (12) 

DIMENSION  CRESIG ( 36  1 0 ) . CIMSIG < 36  1 0 ) , SIG(3S1..),  PHK3610). 

1 THET ( 36  1 C ) , AMSIG(3610),  AMPHI(361C) 


equivalence 

1 

2 

3 

4 

5 

6 


( CRESIG(I), 

( CI*«SX6(1)# 

( TKET(1), 
( SIG ( 1 ) f 

( PHI ( 1 ) * 

( aKSiG(I), 
( AMPHI(1), 


IDATA ( 1,3)  ), 
ID*TA( 1#4)  ), 
IDAtA<  1#  1)  ># 
IDaTa< 1*2))# 
IDAtA(  i*3m* 
IDAtA<  1*1))* 
IDAtA( 1»2) ) 


COMMON  /BLOCK?/  ID  1 , DUMMY ( 2 ) , ID2 
DIMENSION  IDOU ( 3 ) 


I UN  = K 

lDOU( ' ) = ID1  ♦ lOOCOOO 
lDOU!2)  » ID2  ♦ lOOCOOO 
IDOUO)  » 100C001 


WRITE  (IUN/SOCO)  COMTPG,  TROLL, TPITCH#  IPO’,  FhEO 


NpT  = 0 

5 NPT  r NPT  + 4 
NsTaRT  * NPT  - 3 
IN DX  = icOUNT  - NSTART  ♦ ■ 

IF  (INDX  »LT,  4 ,AND.  IWdX  ,GT,  0)  -0  T?(2  ,30,4  ),INDX 

IF  (INDX  .EQ.  0)  GO  TO  50 

10  WriTe(IUN,  1C00)  ( (IDATa(I»J)#Jo1.3),2  = NSTaPT,'TT  ),  id0U 

IpOU ( 3 ) = IdOU(3)  ♦ 1 


GO  TO  5 
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20  WKXTE ( XIW# 2000 ) ( ( IDATA ( X , J ) , J«1 .3 ) , X=NSTAFT , NPTS 1 , IDOU 
00  TO  50 

30  WHITE(IUH',  3000)  ( ( IDATA  ( I , J ) , 1 , 3 ) , X = M START  , NPTS  ) , IDOU 

GO  TO  50 


40  WRITE(IUW,4000) 

50  IF  ( XUf>  .EQ.  8) 

RETURN 

C****»roRHAT  STATEMENTS**** 


( (IDATA (I, J),J« 1,3), XCNST ART, NPTS) . 
ENDFIXE  8 


IDOU 


1 00  FORMAT 

2 oo  format 

3 oo  format 

4 00  FORMAT 

5 00  FORMAT 

13HGHZ,  1 © H 

2 

3 61H 


4(  IX, 15, 14,14) , 6X, 

1(  IX, 15,14, 14). 4BX, 

2 ( 1X,I5,I4,I4),34X, 

3(  IX, 15,14, IU),20X, 

1 H ,5a6,2hRA«I3,2HFA,I3,4H  P 

/ 

19H  FORMAT(AZ,SIg,PHA), 


16.  1HP,I3,I5,3HA-i6) 

16, 1hp,I3,I5, 3HA  36 ) 

16, lHP,I3,I5,3HA3b) 

16. 1HP,I3,I5, 3HA36) 

T, A " , 2K  R , A 1 » 4H 


END 


,F6,3, 

) 
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SUBROUTINE  zeros 

COMKOU/P/  FILLER(7280) . 
DO  0 1=1,7220 

10  ZERO(I)  = 0.0 
RETURK 
EvD 


ZERO(7220) 
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SUBROUTINE  pi-020 

CONMOK/P/  NSHaPS,  lOCSKA*  IFILE{12)»  IjZSFT,  NPT,  iun,  STILES ( 1 2 ) » 

1 iPTS,  XDLTH,  NSHAtJS#  I5HaDW(2.U),  RHO,  DEE.  IOPH2), 

2 XOP ( 3 ) # cOMTRG ( 5 ) , IeSPLj,  ZPZTcH.  IROLL,  IPOl{2), 

3 flEQ,  SQSORE,  SQSGIM,  PH.  ICOUHT',  IDATa  ( 3t  1 0,  U J , 

4 IFDES  ( 3 ) , ZPHZI  , I EOF  ( i 2 ) 

COMHOK  /1LOCK2/  SIGMIK.SIGHAX 

DIMENSION  CPESIG { 36  1 C ) . CXMSIQ (3610).  515(361"),  PHI(36!0>, 

1 THEY (3610).  AMSlG (3610).  AMPHI(3610),  A(361  ),  T(3M  ,2), 

2 ISTART42),  ZEND ( 2 ) , ZHExD(0).  aXMIN(2),  AZMAX(7)  , 

3 CARD(IC).  XPa»(B).  TPa*(?),  XK2).  YM2) 

EQUIVALENCE  j CRESIG(I),  ZDATA ( 1,3)  ) # 


'1 

I 

CIHSIfi(l), 

IDATA (1,4)), 

2 

( 

THET ( 1 ) , 

IDATA(  1.  1)  )» 

3 

( 

SIG ( 1), 

IDATA( 1*2)  ), 

4 

< 

PHI(1), 

IDATA( 1*3)  ), 

S 

( 

A«SIG( 1), 

IDATA(  1.  1)  )» 

6 

( 

AMPHK  1), 

IDATA( 1.2)  ), 

1 

( 

A(Di 

idata(  1.1))* 

e 

( 

Y ( 1 , 1 ) , 

IDATa< 1.2)  ) 

’ XPAR 

and  ypar  array  parameters  are  defined  as  follows 

c*“ 

XPAR ( 1 ) 

x 

X CORNER 

YPAR(  1 ) 

* Y 

corner 

c**« 

XP  A > ( 2 ) 

E 

x size  or 

PAPER  YPAR ( 2 ) 

« Y 

size  or  paper 

Q * * • 

XB AR ( 3 ) 

S 

X ORIGIN 

yfar(3) 

* Y 

ORIGIN 

c* 

XP AR ( 4 ) 

E 

X SCALE 

YPAR ( 4 ) 

* Y 

SCALE 

c**1 

XPa*(5) 

E 

PRINT  MODE 

SELECT  YPaR<5) 

* PRINTER  SYMBOL  SELECT 

XP Al ( 6 ) 

X 

X ERROR  COUNT  YP AR ( 6 ) 

= Y 

EFROR  COUNT 

c*  ** 

XPA«(7) 

X 

X STaRT 

YPa>(7) 

*=  Y 

STa"T 

£*** 

XPaKB) 

s 

X INCREMENT  YP AR  ( 8 > 

« Y 

increment 

c 

r 

PLOT 

SUBROUTINES  ARE  DEriNED  AS  fOLLOWS 

w 

c*** 

CALL 

GRID ( XTNC 

, YINC , XP  AR , 

ypaR.ikd)  USES 

XPAR 

A>  D YPAR  1,2 

c*** 

CALL 

LINE ( XAR 

' 9 

YAR, IOUNT, XPAP#YPAR)  USES 

XPAR 

AND  YPAR  1,2*3, «, 6 

C***  CAtt  roiNT(XAR,TAR,lOUKT,XrAR,rpAR)  USES  XP4R  a‘D  YPaR  1,2, 3,4, 5, 6 
C***  CALL  NUHBE*(va1.UE.VdEC#XPAR,YPAR)USES  XPXR  1,2, 6, 7, 8 AKD  YPaR  1,2.7 
C***  CAtt  PRINT(TEXT, COUNT, XPAf,TPAR)  USES  XpAR  1,2, 6, 7,8  aNd  YPAR  1,2, 7 
C***  CALL  RANGE<ARRAY#lKlTIAt,LAST,RMAX,RHlN) 

c***  XPAR(CORN*R»PaPER  SIZE,  ORIGIN,  ScAIE.  PRINT  M r r E . error,  start.  in 
c**#  TPAR(cORNER. PaFER  size,  ORIGIN,  SCALE.  SYMBOL  * ERROR,  start,  in 

C*  **  XPAR ( 1,2  ,3  ,4,5  ,6,7,0) 

DATA  XPAR/O. 0,25.0,  15. 0,20, C,  17.0,0.0,5.8,  ,1/ 

C 

c***  YP  AR  ( 1,2  ,3  ,-  ,5  ,6,78) 

DATA  YPAR/0. 0,25.0,  12.0,  5 . " , 1 2 . 0 , 0 . 0 , 1 . 5,  ,"/ 


IOUNT  «3600/IFSFLE 


iL 
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5 IF ( lor  1 ( 1)  .HE.  1)  GO  TO  ’05 
If ( IBSFLE  .LE,  0)  IfiSFLE  = 1 
999  EoRMAT( <X, 16T-.  1 ) 

HfeXTE(0.999)  ( (X*Al(KK)*KK*1»|la  (TPjtR(LL)*L*.«1»*)  ) 
10  cUL  6BlB<1.0»1i0»XP*8,YPXB,1) 

WRITE  (6. 999  ) ( (XPaF<KK}#KK*1,9>*  (*?*»(  LI  >'*LL- 1*6)) 
C ALL  NU«BER(”"80.0# 1#XPAB,yPAP) 

XPAR(7)  -14.8 

is  call  numbef(  o#o, 1,xpaR#tpar> 

XPa Ft?)  * 23.6 

call  numbeM  igo.o*  i,xpaR,xpa1> 
xp a*(T)  - 5.0 
YFAR(7)  * 2.0 
*B  = SIGNIN' 

XT  = SIGMA* 

20  call  nukber(Xb. i,xpab»*pa«) 

XfaF(7)  « 12. n 

call  numbef(yt,  i,xpaf,ypar) 

Xp Ar ( 3 ) -32.0  - XT 

WRITE(6,999)  nXPA*(KK),KK=:1*8),  (rpAR(LL)iLJ  «1,8)  > 
889  FORMAT  ( IX * 2F ' 2, 6 ) 

WPITE(6,886  ) AM)aY(  1*1) 

25  do  6C  KpT  * 1,3600  ,lBSFL?) 

NpT 1 = NPT  ♦ IBSFLE 
X 4< 1 )-  kiv?t) 

X l(2)=  a<KPT1) 

X ■ ( 1 )=  Y(NPT, * ) 

X * { 2)-  Y(HPT1,  1 ) 

60  CALL  LIAE(X1*Y1*IOUNT*XPaR*YPaB) 

105  IF ( IOP 1 ( 2 ) • KE . 1)FETURN 

Data  XPa*/0. 0,25.0* 14.0,20.  *12.0*0.0,13,5,'.'/ 
110  C a LL  GRID(  1 .0, 1.0,XPAR,XPAH,  1 ) 
call  number (- 'rO.o, i,xpaR,xpaR) 

XPaP(7)  * 14,6 

M5  call  number (o.o, i,xpar,ypar) 

XPaRC)  ■ 23,6 

call  nukber( igo.o, i,xfar,xpar) 

XPaRC)*  5.0 
IP  AR  ( 7 ) * 1«*.0 

120  Call  numbemo.o,  i,xpar,xp»r) 

Xp aP ( 7) * 19.0 

call  nukbep( i?o,o* i,xpaf,xpaR) 

XfaR(7)*  2G.0 

call  number (3f o.o* i,xpar,ypaR) 

WRITE<  6,999  ) ( (XPaR  (KK)  *KK=1#  8 ) , ( YPaR(  LL)  ,LL*1  ) ) 

125  00  16  NPT  = 1,360'*IBSFLe 
NpTI  =NIT  ♦IBSFLE 
X i ( 1 ) = A (NPT) 

X 1 ( 2 ) - A ( NPT  •) 

X ( 1 ) » Y ( NPT, 2 ) 

X *(2)  » X(NPT  -.,2) 

i60  call  line ( x * , x i, iount,xpa? , xpar ) 
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’ 5 

call  STDBT 

' * 6 

Call  STDBT 

1 ~T 

return 

K8 

END 

NON-BLANK  CHARACTERS  IK  COLUMN?  1-5  ILLEGAL.  CHECK  FORM/NFORM  OITI'.'N 
FIRST  WOB6  or  STATEMENT  IS  UNRECOGNIZABLE  or  THE  FIRST  £>EIIvETER  is  illegal 
NOX-BLANK  CHARACTERS  IK  cOLUMNS  1-5  ILLEGAL-  CHECK  FORM/KFOFM  OFTICN 

9 CHECKOUT  TARGET  r2T5r3-F5cY5  }j6  0 0 OHhS,?  5 i-180‘ 

* 1’  .65951  8 1 C 1 C 0 -U  0 10  1-180  1 

HI  1 1 01  19:03600  0.  % 

STATEMENT  LABEL  must  BE  BETWEEV  1 AND  99999 
. IS  ILLEGAL  as  THE  FIRST  CHANACTE*  OF  A STATEMENT 
STATEMENT  IS  nEvER  REFERENCED 

•12  121  11700  0.  . 

STATEMENT  LABEL  MUST  be  BETWEEN  1 AND  99999 
. TS  ILLEGAL  AS  THE  FIR6T  CHARACTER  OF  A STATEMENT 
RETURN  STATEMENT  MISSINC-SIMI'LaTED 
•EN'd*  STATEMENT  HISSING-SIMULATED 
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8.0  Sample  Problem 

8.1  Description 

The  enclosed  sample  problem  identified  by  job  number  064052-001 
superimposes  measured  signature  data  for  generic  Models  F5  and  CyS. 

Model  F5  data  is  contained  on  file  number  2 of  A24  library  tape  964216A01 
and  Model  Cy5  data  is  contained  on  file  number  3 of  the  same  tape.  There 
are  3600  data  points  per  shape  and  pitch  and  roll  angles  are  both  zero 
degrees.  The  library  data  was  obtained  using  horizontally  polarized 
transmitter  and  receiver  antennas  at  a frequency  of  5.885  gHz.  The  values 
of  the  radius  arm  angle  (RHO)  and  the  radius  arm  length  (DEE)  necessary 
to  obtain  the  composite  shape  are  given  in  the  input  data.  The  value  of 
I PHIZ  required  to  correct  the  phase  of  each  generic  shape  is  also  given 
in  the  input  data.  The  values  of  RHO,  DEE,  and  IPHIZ  are  obtained  from 
the  location  geometry  and  measured  phase  data  for  each  generic  shape. 

DEE  and  RHO  are  the  polar  coordinates  required  to  synthesize  the 
location  of  each  shape  in  its  respective  position  as  a component  of  the 
composite  shape.  For  example,  if  Frustrum  F5  were  aligned  as  shown  in 
Figure  la  when  originally  measured,  values  of  DEE  * 8.2  inches  and 
RHO  * 7.6  degrees  would  be  required  to  shift  the  reference  point  (in  this 
case,  the  center  of  the  large  face  of  the  frustrum)  so  that  the  composite 
Model  F5CY5  could  be  formed  as  shown  in  Figure  lb. 

Subroutine  EXEC  utilizes  the  values  of  RHO,  DEE,  IPHIZ,  and  measured 
phase  to  compute  the  value  of  phase  which  would  be  measured  if  the  shape 
were  actually  located  in  the  new  position.  The  angle  RHO  is  necessary 
to  account  for  errors  in  alignment  of  the  generic  shape  with  respect  to 
the  center  of  rotation  of  the  turntable. 

8.2  Input  Data 

The  attached  Digital  Computer  Data  Sheet  gives  the  input  data  for 
this  sample  problem.  Columns  33-55  of  card  #2  are  used  to  provide  in- 
structions for  the  SC4020  plotter  at  GD/FW  and  may  be  ignored. 

8.3  Output  Data 

The  attached  output  listing  gives  the  output  data  obtained  using 
the  data  in  Section  8.2  and  the  measured  data  obtained  from  files  number 
2 and  3 of  the  the  library  tape. 
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F5 

Reference 
Point  - 


Center  of 
Rotation^ 


r Center  of 
Rotation 


RLOS 

(b) 


RELATIONSHIP  OF  RHO  AND  DEE  TO  VEHICLE 
REFERENCE  POINT  LOCATION 


10 


ftCHErCKUUT 

TA^GfcT  F2Y5F3 

» K A 

OF  A 

0 F 

TH  KH 

► 

5,9/5  UF'Z 

FOKMAT ( *Z 

i 5 I u ■ A ) 

-1800 

47 

279  -1/99 

46 

279  -1 7 Vd 

46 

279 

-1797 

46 

279 

-1796 

46 

27b  -1795 

46 

278  -3  794 

46 

27b 

-1  793 

46 

278 

-1792 

43 

278  -1791 

42 

278  -1790 

V 

277 

-1789 

42 

27/ 

-170b 

41 

277  -1787 

4 0 

277  -1786 

40 

27/ 

-1  765 

39 

277 

-1704 

39 

276  -1763 

3b 

276  -1/82 

3b 

276 

-1/81 

38 

276 

-1  78U 

37 

2/6  -1779 

36 

276  -1/78 

35 

276 

-1777 

35 

275 

-1776 

34 

275  -1775 

33 

275  -1774 

32 

276 

*17/3 

31 

27o 

-1772 

3Q 

276  -1771 

30 

276  -17/0 

28 

277 

- 1 7 6 9 

2 7 

277 

-176b 

26 

27 7 -176/ 

26 

277  -1766 

24 

2 77 

-1765 

23 

271 

- 1 7 6 A 

22 

27/  -1763 

21 

27/  -1762 

20 

27b 

• 1761 

18 

il*) 

-1760 

16 

279  -1759 

l(i 

27y  -3 / 58 

15 

28  0 

-1757 

13 

282 

-1756 

12 

262  -1755 

10 

282  -1754 

9 

283 

-1  753 

7 

284 

-1752 

6 

264  - l 75l 

4 

284  -17*0 

3 

284 

-1749 

U 

285 

-17  4b 

-2 

?b6  -1747 

-•1 

288  -1746 

-6 

287 

-1745 

-8 

290 

-1744 

-11 

290  -1/43 

-12 

290  -1742 

-14 

291 

-1741 

-16 

292 

-1740 

-18 

293  -1739 

-20 

293  -1738 

-23 

294 

-17  0 7 

-24 

294 

-1736 

-26 

295  -1735 

-29 

296  -1734 

-32 

296 

• 1 73  o 

-35 

296 

-1732 

-37 

29/  -1731 

-40 

293  -1730 

-43 

300 

-1729 

-47 

301 

-172b 

-50 

302  - 1 7? 7 

-54 

303  -1726 

-56 

303 

-1725 

-60 

304 

-1724 

-63 

3U6  -1/23 

-60 

306  -1722 

-69 

3 0 6 

-1721 

-72 

3C8 

-1720 

-76 

308  -1719 

-80 

308  -1718 

-83 

309 

.1717 

-86 

312 

-1716 

-vi 

312  -1715 

-95 

312  -1714 

-98 

315 

- 1 7 1 3- 

103 

315 

-1712- 

106 

317  -1711- 

112 

317  -1710- 

117 

317 

.l  709- 

121 

320 

-1700- 

126 

321  -1707- 

132 

321  -1706- 

139 

324 

• 1 7 05- 

146 

326 

-17o«- 

1*2 

326  -1703- 

1*9 

327  -17o2- 

168 

329 

- 1 7 U 1 - 

177 

329 

-1700- 

186 

330  -1699- 

19/ 

335  -1695- 

208 

337 

-1697- 

224 

339 

-1696- 

24l 

344  -1695- 

2*1 

35 1 -1694- 

282 

359 

-1693- 

314 

12 

-1692- 

344 

31  -1691- 

371 

83  -1690- 

350 

127 

•1689- 

316 

146 

-168b- 

286 

162  -1687- 

266 

168  -1686- 

252 

168 

•1685- 

234 

170 

-1684- 

223 

172  -1683- 

212 

175  -1682- 

201 

177 

•1601- 

192 

178 

-1680- 

181 

lbg  -1679- 

1/3 

182  -16/8- 

167 

182 

-1677- 

161 

185 

-1676- 

1*7 

186  -1675- 

1*3 

187  -16/4- 

149 

187 

•1&73- 

146 

188 

-1672- 

144 

190  -1671- 

1 4 IJ 

190  -16/0- 

139 

189 

•1669- 

136 

191 

-1668- 

134 

193  -1667- 

132 

193  -1666- 

131 

194 

- 1 6 6 5 • 

129 

196 

-1664- 

128 

198  -1663- 

127 

199  -1662- 

126 

201 

-1661- 

123 

202 

-1660- 

125 

202  -1659- 

124 

203  -165o- 

124 

204 

-1657- 

124 

212 

-1656- 

124 

212  -1655- 

l2o 

212  -165«- 

127 

212 

-1653- 

127 

215 

-1652- 

128 

217  -1651- 

13() 

219  -1650- 

131 

221 

« 1 6 4 4 . 

132 

222 

-164b- 

133 

224  -164/- 

135 

226  -1646- 

136 

228 

-1645- 

137 

232 

-1644- 

140 

237  -1643- 

142 

239  -1642- 

144 

240 

—1641® 

147 

240 

-1640- 

149 

242  -1639- 

152 

246  -1638- 

1*5 

248 

-3.637- 

158 

248 

-1636- 

161 

251  -1635- 

164 

255  -1634- 

167 

259 

-1633- 

17.EL.  ibZ 

122 


-1642-3 74 

265 

-1620- 1 50 

281 

-1624-201 

290 

-1620-23 1 

404 

- 1 6 1 6 - 2 1 7 

416 

-1612-218 

42V 

-1608-224 

440 

-160^-237 

460 

-1600-261 

7 

-1696-307 

1? 

-3692-494 

17 

-1588-496 

74 

-1684-298 

240 

-1600-267 

200 

-1676-236 

204 

-1572-224 

254 

-1568-217 

265 

-1564-216 

278 

-1560-214 

2«7 

-1566-209 

299 

-1552-2J2 

410 

-1548-192 

444 

-1544-105 

462 

-1540-101 

1 

-1546-184 

11 

-1532-1V2 

21 

-1528-206 

28 

-1524-229 

47 

-1520-292 

06 

-1516-414 

66 

-1512-433 

132 

-1508-295 

1 6 4 

-1504-273 

192 

-1500-274 

197 

-1496-290 

199 

-1492-44? 

200 

-1438-476 

174 

-1464-400 

101 

-1480-200 

84 

-1476-225 

74 

-1472-214 

75 

-1468-211 

»1 

-1464-222 

88 

-1460-234 

10U 

-1456-243 

136 

-1452-229 

167 

-1448-212 

1 7 V 

-1444-1 90 

193 

-1440-1 79 

205 

-1436-1/8 

216 

-1432-105 

22u 

-142B-2U0 

227 

-1424-241 

242 

-1420-276 

246 

-1416-441 

286 

-1412-304 

356 

-1408-262 

15 

-1404-208 

19 

-1641-170 

2 6 y 

-1627-lVo 

280 

-1624-204 

2V, 

-3619-214 

406 

-3615-21 7 

41  7 

- 3 61  1-23  9 

34  2 

-160 /-22  1 

4'4 

-3  6C4-209 

36  0 

-1559-270 

1 0 

-1595-424 

14 

-159 1-4, jo 

21 

-1587-468 

10,4 

-1584-280 

240 

-1579-250 

2<U 

-1575-241 

2 4/ 

-1571-222 

259 

-1667-216 

2 '71 

- 1 56 J- P 3 7 

279 

-1559-210 

29] 

-1555-206 

40  6 

-1561-199 

426 

-1547-l90 

44  6 

-1544-184 

45  2 

-1539-102 

2 

-1546-186 

14 

-1531-194 

22 

-1527-212 

29 

-1524-247 

46 

-1519-274 

«V 

-1515-327 

62 

-1611-325 

156 

-1507-291 

16  7 

-15C4-27U 

193 

-1499-276 

196 

-1495-299 

20  0 

-1491-452 

19  7 

-1487-461 

14/ 

-1 48J-203 

94 

-1479-201 

04 

-1075-220 

7 7 

-1071-212 

7/ 

-1067-21/ 

61 

-1464-224 

90 

-1459-247 

106 

-1455-242 

14  7 

-1451-224 

168 

-1447-203 

166 

-1444-137 

19  7 

-1439-178 

20  7 

-1445-100 

216 

-1431-106 

220 

-1427-207 

227 

-1424-239 

244 

-1419-290 

252 

-1415-444 

402 

-1411-268 

2 

-14IJ7-255 

19 

-140J-247 

19 

-16 0 0-181 

2/5 

-1626-195 

26 1 

-1622-206 

?96 

-1616-215 

4 0 8 

-1014-216 

424 

-163  0-220 

434 

-1 606-240 

344 

-1602-247 

1 

-1598-261 

10 

-1594-447 

15 

-1590-4UO 

30 

- l5<-6-444 

229 

- 1502-274 

24  0 

-16/0-245 

242 

-16/4-227 

232 

- 1570-222 

26  0 

-1566-217 

2/1 

-1562-217 

282 

-1538-212 

296 

-1634-207 

310 

-165^,-197 

326 

-3646-109 

447 

-1542-16 4 

457 

-1548-181 

8 

-154^-106 

20 

-1530-197 

22 

-15*6-216 

29 

-1622-244 

49 

-1518-264 

52 

-153  4-o44 

104 

-3510-415 

3 66 

-15o6-261 

188 

-1502-207 

197 

-1498-278 

19b 

-14v4-4o6 

*0  0 

-14/0-467 

191 

-1406-440 

140 

-1462-271 

92 

-14/0-246 

7 b 

-1474-218 

77 

-19/0-212 

77 

-1466-217 

85 

-1462-229 

94 

-1438-240 

118 

-1454-249 

148 

-1450-219 

174 

-14*6-199 

190 

-1442-183 

201 

-1438-177 

209 

-1434-181 

217 

-1430-lVi 

221 

-14,6-212 

227 

-1422-249 

235 

-1418-406 

257 

-1414-446 

418 

-1410-277 

12 

-14^6-252 

IV 

-1402-246 

19 

■ i o 2 9 - 1 o i t'n 

■3.623-197  207 
»t6?t**09  400 
• 3 61  /-ill  6 43  3 
■3  614-216  4 26 
-1609-222  43V 
-1605 -244  4*51 
-160 1-252  / 

-159/-292  ii 
-1594-462  17 

•1389-400  44 

■1505-411  249 

■ 15M-266  240 
■15/7-248  244 
■1574-225  252 
■1569-238  260 
■1565-216  274 
■156W16  207 
■1657-211  2V6 
>1654-204  40V 

■ J 549-194  420 
■1545-106  444 

■I64i-xe2  1 

-1647-182  11 

.1644-189  21 

-1629-201  22 

.1626-224  46 

■1621-266  44 

>1617-400  69 

.1614-448  1?1 
-1609-408  171 
-1606-200  192 
-1601-272  197 
-1497-284  200 
1494-422  200 
-1469-477  186 
-1486-414  110 
-1481-269  86 

-1477-240  74 

-14/4-216  76 

-1489-212  77 

-3466-220  00 

-1481-242  97 

-l487-2'>4  125 
-3  454-244  169 
,1449-214  177 

>1446-194  19 i 

-1441-180  204 
,1447-170  211 
-1444-104  220 
-3  429-195  226 
-14,6-220  240 

-1421-264  24,? 

-1417-426  272 
-1414-414  448 

-14U9-26B  14 

-14U6-2«V  19 

-1401-24SI.  19 
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-140  0-27? 

19 

-1399-254 

19 

-1396-262 

.16 

-1397-267 

1 t. 

-1392-263 

12 

-1391-267 

6 

- 1 38b -29 / 

347 

-1367-297 

33/ 

-l3f)4'tVb 

3)7 

-1383-29/ 

3 0 7 

-1380-29/ 

502 

-1379-302 

26  7 

-1376-312 

281 

-1377-320 

279 

-1372-349 

268 

-137j.-36o 

263 

”1368-392 

233 

-1367-372 

21  3 

-1364-30 V 

138 

-1363-294 

137 

-1360-276 

127 

-1379-250 

122 

-1 366-236 

116 

-1357-232 

117 

-1372-22/ 

117 

-1371-230 

1 3 4 

-1346-237 

112 

-13 47-243 

132 

-1344-2&2 

111 

-1343-278 

111 

-1340-346 

111 

-1339-3/3 

11  / 

-1336-394 

2-56 

-1337-332 

267 

-1332-263 

2 63 

-1331-274 

263 

-J  326-226 

281 

-1327-220 

261 

-1324-209 

281 

-1323-206 

281 

-1320-2U7 

2°  1 

-1319-209 

28 1 

-1316-219 

287 

-1317-279 

2«7 

-1312-273 

593 

-1311-267 

297 

-1306-314 

310 

-1307-331 

*52  7 

-1304-316 

43 

-1303-299 

b 4 

-1300-273 

77 

- l?9V-?<  4 

7/ 

-1296-222 

79 

-1297-218 

80 

-1292-216 

61 

-1291-216 

81 

-1286-226 

62 

-12b7-229 

82 

-1264-27? 

62 

-1253-266 

63 

-1280-317 

63 

- 1279-339 

83 

-1276-400 

78 

-12/7-4C0 

78 

-1272-336 

6b 

-1271-372 

66 

-1266-260 

66 

-1267-274 

74 

-1264-276 

25 1 

-1263-253 

26  3 

-1260-274 

261 

-1279-252 

262 

-1256-274 

?77 

-1257-273 

274 

-1252-273 

244 

-1271-271 

23  9 

-1248-273 

228 

-1247-256 

227 

-1244-267 

224 

-1243-276 

223 

-1240-303 

222 

-1239-313 

222 

-1236-349 

277 

-1237-348 

277 

-1232-296 

308 

-1  231  -282 

313 

-1226-248 

319 

-1227-24? 

32Q 

-1224-224 

328 

-1223-221 

330 

-1220-217 

332 

-1219-216 

337 

-1216-227 

339 

-1215-236 

34  / 

-1212-261 

7 

-1211-271 

5 

-1208-3U6 

?9 

-1207-318 

4V 

-1204-292 

111 

-1203-261 

127 

-1200-249 

144 

-1199-241 

151 

-1196-223 

178 

-1197-220 

162 

-1192-218 

167 

-1191-221 

167 

-1186-230 

177 

-1167-237 

1 6 0 

-1184-272 

19/ 

-1163-261 

199 

-1180-278 

232 

-1179-279 

243 

-1176-266 

278 

-1177-263 

28  i 

-1172-248 

302 

-1171-241 

311 

-1396-256 

19 

-3  39/-2f 2 

19 

-1394-272 

16 

-1393-2/9 

17 

-1390-291 

4 

-1389-293 

3 6 |1 

-1 366-29  7 

331 

-1 385-301 

320 

-1  Jf'2-297 
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1 /f  2 -26 

C 2 3 

1/43  -?4 

228 

1744  -cl 

225 

1743  - j J 

c 2 9 

1/46  -17 

224 

1/4/  -13 

c 2 4 

1/46  - 13 

2 2 3 

174V  -U 

222 

1 / by  - 1 0 

' 1 / J 1 - 0 

224 

1 752  -5 

219 

1 / 5 3 - 9 

2 '2  0 

1 754  -2 

2'22 

1/55  -1 

216 

1/56  j 

215 

176/  2 

21  7 

1/96  4 

217 

1 739  3 

c 1 7 

1/6  o o 

21  / 

1761  d 

216 

17  02  9 

214 

1763  12 

c?0 

1764  12 

22  2 

1 7 6 3 1 9 

21o 

1/06  ] 4 

211 

1 7 6 7 13 

212 

1 766  3 / 

21o 

1/64  1 £* 

216 

17/0  18 

212 

17/1  2o 

212 

1/72  cl 

215 

l / / 3 22 

212 

17/4  23 

211 

l 7 / 3 24 

215 

1776  23 

<:  i)  v 

1/7/  26 

2 0 0 

1//6  t 7 

211 

17/9  26 

212 

1/60  29 

2'jd 

1761  29 

2 U •** 

1/52  30 

c 1 2 

1753  30 

211 

1/73  4 Oi 

2 fib 

1 7 6 3 3 2 

2Dh 

1/3  6 3 3 

2 1 1) 

1/87  33 

20b 

l/6o  34 

?.u  / 

1 7 ri  9 3 5 

21  o 

1 / * 0 3 5 

2 06 

1791  34 

2 08 

1792  94 

20  6 

L / v 3 3o 

2 .i  7 

1 7 •/  4 3 6 

2 0 4 

1795  36 

2 0 6 

174s  3 7 

<!  1 9 

1 / '4  7 3 7 

2 0 4 

1 V > 8 3 7 

4 0 3 

1799  35 

2 05 
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MATCHED  FILTER 
PROGRAM  AG2 
DOCUMENTATION 


1.  GENERAL 

This  exhibit  is  a documentation  of  Electronic  Data  Processing 
(EDP)  Program  AG2,  Matched  Filter  Program,  produced  under  contract 
AF30(602) -67-C-007  for  RADC  by  the  Fort  North  Division  of  General 
Dynamics.  EDP  program  AG2  was  originally  written  for  use  with  an  IBM 
360  system;  however,  in  this  documentation  the  necessary  changes  have 
been  incorporated  to  make  the  program  compatible  with  the  GE625/635 
computer  at  RADC.  This  documentation  has  been  prepared  in  accordance 
with  Electronic  Data  Processing  (EDP)  Programs  and  Program  Documentation, 
Requirements  for  Preparation  of.  Exhibit  RADC-3010  of  17  January  1964. 

2.  ABSTRACT 

The  purpose  of  this  procedure  is  the  computation  of  a set  of 
correlation  coefficients  (D,9)  the  magnitude  of  which  are  an  in- 

dication of  the  probability  that  a scattering  center  is  located  at  the 
polar  coordinates  (D,0).  The  library  data  processed  by  this  procedure 
consists  of  cross  section  and  absolute  phase  data  obtained  from  magnetic 
tapes  produced  by  procedure  A24.  The  output  of  AF2  is  a listing  of 
the  magnitudes  of  £ (D,0)  as  a function  of  discrete  values  of  D and  0. 
Any  portion  of  the  library  data  can  be  selected  as  input  by  adjusting 
the  problem  data. 

3 . MACHINE  DEFINITION 

The  program  was  originally  written  for  use  with  an  IBM  360  computer 
system.  The  enclosed  documentation  is  in  Fortran  IV  language  and  is 
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specifically  designed  for  use  with  the  GD625/635  computer  at  RADC. 
4.  PROGRAM  DESCRIPTION 


Figure  1 contains  a simplified  logic  diagram  of  AG2.  Basically 
the  program  performs  the  following  functions: 

1.  Calls  the  problem 

2.  Selects  the  correct  file  on  the  library  tape 

3.  Reads  the  library  data  for  all  windows 

4.  Computes  the  correlation  coefficients  for  all  windows 

5.  Computes  the  product  of  the  correlation  coefficients  for 
selected  windows. 


5.  INSTRUCTIONS  TO  CUSTOMER 


5 . 1 Input  Data 

1.  Library  Data.  Library  tapes  for  procedure  AG2  are  produced 
by  procedure  A24.  These  tapes  are  identified  by  a label  of  the  form 

X XXXXXANN  where  XXXXXX  is  the  job  number  under  which  the  tape  is  produced, 
A is  an  alphabetic  character,  and  NN  is  a sequence  number. 

2.  Problem  Data 

a.  Identification  Format 
Columns 


63-68 

69 

70-72 

73-77 

78-80 


Job  Number 

Mpit 

Deck  number 

Card  sequence  number 

AG2 
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b.  Input  Parameters 
F 

TMIN 

DELT 

L 

PHIM 

DELP 

N 

YMIN 

M 

DELY 

MI(KK) 

MA(KK) 

NIP 

D 

TZ 

NR 

I STEP 

NFILE 

IFD 

IFN 


Frequency  (GHz) 

Initial  target  aspect  angle 

Target  aspect  angle  increment 

No  of  input  aspect  angles  (Total 
encompassed  by  all  windows) 

Minimum  output  geometry  angle 

Output  geometry  angle 

No  of  output  geometry  angles  (az) 

Minimum  dimension  parameter 

No  of  output  dimension  parameters 
(radians) 

Dimension  parameter  increment 

Minimum  aspect  for  KKth  interval 

Maximum  aspect  for  KKth  interval 

No  of  aspect  windows 

Residual  radius  arm  in  input  phase 
data 

Angle  formed  by  D 

No  of  files  to  be  processed 

Correlation  increment  * 1,2,5,10  or 
20  only 

No  of  files  on  tape 

Field  on  library  tape  where  first 
aspect  angle  is  located 

File  number  being  processed 
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c.  Card  Formats  (AG2) 

(i)  First  card  of  each  problem  deck 
Card 

Cols 1~4 

Data  NR 

(ii)  Second  card  of  each  problem  deck 

Card 

Cols  1-10  11-20  21-30  31-40  41-50  51-60  61-64  65-66 

Data  L M N TMIN  YMIN  PHIM  N FILE  IFD 

(iii)  Third  card  of  each  problem  deck 


Card 

Cols  1-10  11-20  21-30  31-40  41-50  51-60  61-62  63-64  65-66 

Data  F DELT  DELY  DELP  D TZ  IFN  NIP  ISTEP 

All  input  items  except  those  beginning  with  the  letters  I,J,K, 

< l,M  or  N must  contain  a decimal  point  and  may  contain  an  exponent  (power 

of  ten  by  which  the  number  is  multiplied)  in  the  right  most  columns  of 
its  field.  The  exponent  may  be  omitted  if  the  last  column  of  the  field 
is  blank.  When  input  the  exponent  is  preceded  by  its  sign  or  the  char- 
acter E and  conains  no  decimal  point.  Items  beginning  with  the  letters 
I,  J,  K,  L,  M or  N must  be  right  adjusted  to  their  respective  fields. 

5.2  Output  Data 

\ . Output  Parameters 

The  output  of  this  procedure  is  a listing  of  the  magnitude 
of  the  following  quantities: 

OUT  (I,J)  Correlation  coefficient  for  single  windows 

where  I corresponds  to  radius  and  J to  azimuth 
of  the  computer  scattering  center. 
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BIG  Cl » J)  Maximum  values  of  OUT(I,J)  for  each  I 

occurring  when  J - MOST(I) 

PROD(I , J)  Normalized  Product  of  values  of  OUT(I,J) 

for  each  window. 

The  location  R (radius  in  inches)  of  a scattering  center  is 
computed  from  the  value  of  I using  the  equation 
R - YMIN  ♦ (1-1)  * DELY 

The  azimuth  angle  of  a scattering  center  is  computed  using  the 
equation 

PHAS  (J)  - PHIM  ♦ (J-l)  * DELP 
2.  Output  Format 
(i)  Window  #1 

(Al)  I BIG  (I ,MOST(I) ) MOST(I) 

continue  for  1*1 ,M 

(A2)  1-1  OUT(l.J)  for- J-l, N 

1-2  0UT(2,J)  for  J-l.N 

• • • 

continue  for  I-1,M 

(A3)  1-1  PROD(l.J)  for  J-l.N 

1-2  PROD(2 , J)  for  J-l.N 

continue  for  I-l.M 

NOTE:  In  this  case  only  PROD(I.J)  - OUT(I,J)  since 
only  one  window  is  used. 
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e = 3ao 


0 = Ad 


g.  2 Polar  Plot  of 


(R,9)  for  Discrete  Values  of  9 


(ii)  Window  *2 


(Al) 

I 

BIG  (I,MDST(I)) 

MOST (I) 

continue  for  1*1, M 

(A2) 

1-1 

• • • 

OUT  (l.J)  for  J-l.N 

1-2 

0UT(2,J)  for  J*1,N 

continue  for  1*1 ,M 
• • « 

(A3)  1*1  PR0D(1,J)  for  J«1,N 

1-2  PROD  (1,J)  for  J-1,N 

continue  for  1*1 ,M 

NOTE:  PROD(I,J)  - OUT(I,J)  for  window  1 
OUT(I,J)  for  window  2 

(iii)  Continue  the  above  for  the  number  of  windows  selected. 


(iy  ) 

J-l 

PROD (1 , 1) 

I = 1 ,M 

J-2 

PR0D(I ,2) 

I-l.M 

Continue  for  J*1,N 

The  last  two  lists  of  PROD(I,J)  represent  identical 
data;  however,  the  first  is  an  azimuth  cut  and  the 
second  is  a cut  along  a given  radius . Figure  2 shows 
typical  values  of  plotted  in  polar  coordinates. 

5.3  Time  Estimate.  Approximately  3 minutes  are  required  to  run  one 
problem  using  four  windows  of  20*  each. 
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C MATCKSr  FILTER  PROGRAM 

DIMENSION  SIGR  ( 3600  ),  SIGH  ( 3600  ),  JXGP  ( 36  :'0),  OUT  ( 100,1  BC),XGM<  36  0), 
1IGP(360C),BlG(200J,KOST(ir0),  IdoU<3)  , 

2 MI ( 20 ) * M*(20)  , KZ ( 3 6 ' 0 ) , PH AS ( 36 r ) , FRO ( 1 00, 1 80 ) 

1 IIFN  * 0 

CALL  FLGEOFf  5 , IEOF) 

IIFN  * 0 

READ  (5,300)  .VR 

300  FORMAT  lilt) 

Do  6 NT*1»NR 

WRITE  (6*2) 

2 FORM AT ( 1 9H 1 INPUT  DATA  VALUES) 

Read  (5,3)  l,m,n,tmin,ymin,phxm,nfile,ifd 

3 FORMAT  (3110,^10,3,14,12) 

Read  (5.30i)  f.delt, dele, delp,d.tz,ifn, nit, tstep 

301  FORMAT  (6F1C.2,3l2) 
delpd  * delp 

IFILE  = IFN 
DO  4 “ 0 I=V\ 

DO  4O  0 J=  1 » N 
4 00  PRO ( I , J ) = 1,0 
DO  3 2 K K*  1 , N IP 

302  R F AD  (5,303)  MI(KK),  MA(KK) 

303  format  ( 2x5 ) 

WRITE  (6,3)  L,M,N,TMlN,YMlH,PHIM,NFlLE',lrD 
WRITE  (6,301)  E, DELT, DELE, DELP, O.TZ,XFH, NIP, ISTFP 
WRITE  (6,300)  NR 
DO  3 4 KK=1,NIP 

304  WRITE  (6,303)  MI(KK),  MA(KK) 

IF  (ISTEP.EU.  1)  GO  TO  700 

IF  (ISTEP, EQ. 2)  GO  TO  70C 
IF  (ISTEP, EQ. 5)  GC  TO  700 
IF  ( ISTEP.EU. ’0)  GO  TO  700 
IF  ( ISTEPiEQ,  70)  GO  TO  7."0 
WRITE  (6.701)  ISTEP 

701  FORMAT  (21H  THE  VALUt  OF  iSTeP,  ,I2,26H,  IS  NOT  ACCEPTAbLe  TO  AG? 
D) 

GO  TO  60 

700  IFN  = IFN  - IIFN 
XXIFN  * IFN 

NFKIP  « ( TMIN  ♦ 1 80 , 0 ) /0  , i.  ♦ q03,*XXIFN  ♦ 2, 

FFECi  * ( 2.  *3  , 1-15g*F*10,**a)/3.0F4g 
P PD  * 3.14  159/180,0 
TMIN  % TMIN*RrD 
PHIM  « PHIX*?PD 
CELT  « DELT»KPD 
OELp  * DELF*FpP 
Y Ml N * 0,025-*EMlN 
DELY  ■ 0,0254*DELY 
D * C.C254*D 
TZ  = TZ*RPD 
KTE  =•  1 
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IrdFILE  ,EQ.  IIFK ) GO  TO  33 
Dq  8 K ■ 1 * N S K I p 
READ ( 8 , 4 ) 

I F ( I ECP  . EQ , 0 ) GO  TO  8 
4 FORMAl(lX) 

IEOr  = C 
8 CONTINUE 
KTE  =• 

J Z = ' 

ir  dro.EQ.  i)  go  ic  12 
If  (ifd.ne.2)  GO  TO  601 
JZ  = 4 

READ  (8,600)  IGM( i ) ,IGP ( i ) , IGM( 2 ) • lOP ( 2 ) , IGM  ( 3 ) , IGP  ( 3 ) ',  IDOU 

600  FORMAT  ( 1UX,6X,2l4,6X,2l4,6X,2I«,6X,l6i lHP,l3,Ib,  'Ha2U) 

WRITE  (6,600  IGM(1),XGP(1),IGK(2)#IGP(2),IGM(J),IGP(3),IdOU 
GC  TO  12 

601  If  (lFB.NE.-3)  GO  TO  603 
JZ  * 3 

RFAD  (8,602)  IGK(1),IGP(1),IGK(2)#  IGP(21#IDCU 

602  FORMAT  (28X, 6X, 214, 6X, 214, 6X, 16,  1HP, 13,15, -•HA2‘‘) 

WRITE  (6,602)  IGM(  1),IGP(1)|IGK(2)#I6P(2)»ID0U 
GO  TO  12 

603  If  (IFB.NE.4)  GO  TO  12 
JZ  * 2 

READ  (6,604)  lGR(  1 ) , XGP ( 1 ) , HJOU 

604  FORMAT  (42X,6X,2I4,6X,I6, ’hP.I3,i5,3ha24) 

WRITE  (6,604)  IGK(1),IGP(1),ID0U 

12  J2Z  = l *-1 

DO  32  K»JZ,JZZ,4 

READ  (8*  13)  IGM(K),IGP{K),IGH(K-M),IGP(K+1),IGM(K42 
D)«IGP(K+2),IGM(K+3),IGP(K+3)#ipOU 
IF ( IEOF  ,EQ*  C)GO  TO  1333 
IEOF  - 0 
Go  TO  14 

13  FORMAT  (6X,2I4,6X,2I4,6X,2I4,6X,2I4,6X,I6,  HP, Ii, l5, 3HA 24 ) 

1333  IF  ( KTE  ,GT,  ’0)  GO  TO  16 

WRITE  (6,13)  IGK(K),IGP(K),IGM(K*1  l,IGP(K+1  ),i3M(K*2),tGP(K*2)’, 
D IGM(K*3),IGP(K*3),ID0U 
GO  TO  16 

14  IF  UTB.GT.  10)  GO  TO  16 

WRITE  (6,15)  IGK(K),IGP(K)»IGM(K+1)»IGP(v4,1),ISF(K  + ?),IGP(K*2), 
D IGM(K*3),IGP(K+3),ID0U 

15  FoRMaK  IX,  8HERP0R  0 8/6X , 214 , 6 X,  2 14. 6X , 214 , *X , 214  , <-  X,  16  , HP,I3,I5, 
D 3HA 24 ) 

16  KTE  = KTE*  1 

32  continue 

33  k z ( 1 ) * 0 
kzz  = 1 

54  DO  148  K=1,L,ISTF.P 

SIGP(KZZ)«FLOAT(IPP(K))*RfD 

Exp  = (FIOAT(IGM(K)))/200.0 
value  t 10.0**EXP 
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X x X K * K"1 

SIGP(KZZ)  * SIGP(KZZ)*2.0*D*FREQ*C0S(TMIM-*-  XXXK  *DELT  ♦ TZ) 
STG»(KZZ)-VALUE  * COS(SIOP(KZZJ  ) 

StGM(KZZ)«VAL:;E  * SIN  ( SIGP  ( KZZ  } ) 

1 toe  KlZ  = R ♦ ISTZP  - < (KZX)*(lSTEp“1) ) 

DO  16  1 IP  « 1 » HIP 
HIH  * (IHXN/RPD)*10.0 
KXX1  * ( «I  ( IF  ) - MIN)/ISTEP«-1 
KxX2  * ( Ma(ID-  MIN)/ISTEp*1 
DO  '5C  I * 1#H 
XXXI  =1-1 

B * 2.0*FREQ*(rMIH  ♦ XXXI  * DEL*) 

DO  "50  J *1#N 
XXXJ  * J -1 

PHI  * PHIM  * XXXJ  * DELP 

PHAS(J)  ■ -(PHIM  ♦ XXXJ  * DELPL)  ♦ 180. 

IF  (PHASi J) ,LT.O. ) PHaS(J)  » PHXS(J)  ♦ 36  , 

SOM  1 = 0.0 
SOM2  = 0.0 
DO  149  X*KXX 1 # KXX2 
XXXK  w X -1 
XISTEP  = ISTEF 

ARG  * COS(  TMIH  ♦ XXXK*XTSTEP  *DELT  ♦ PHI) 

FlLTR  = cOS(B*ARO) 
rlLTI  * SIN(b*aR5) 

SCM1  * SUM  1 ♦ SlGS(K)*rilTR  ♦ SIGM ( K ) *FIITI 

149  SO M2  = SUM2  ♦ SjgM ( K ) *FlLTR  - SIGH ( K ) *FliTl 
OUT(I.J)  ■ SQPT(SUM1**2  ♦ SUM2  **2) 

PRO ( I * J ) - OUT(I.J)  * PR0{I#J) 

150  cOHTlHUE 

DO  15*  !■  1 # M 

BIG ( I ) * OUT ( I . 1) 

most ( i ) = i 

DO  151  J«2»N 

IP  ( CUT ( I » J ) .LE.BIG(I)  ) GO  TO  Ijl 
BlG(I)  * OUT ( I»  J ) 

most  ( j ) = pha.-(j) 

151  CONTINUE 

PXX 1 « FLOaT(Mi(IP) )/10,C 
FXX2  * FLOaT(Ma(IP) )/10,0 
WRITE  (6.153)  IP.FXXI.FXX? 

153  FORMAT  ( 1 0H  W x N p 0 W ,i4,l“X.F7t3«2X.2HTn#2X,F7.") 

WPiTe  (6.154)  (i,BxG(i),M0ST(i),i«1,M) 

154  FORMAT  (1H0.13HMAX  ANj)  MIN  V ALUES/. ( j4 , 1 £2  . ? » I?  ) ) 

DO  159  I = 1 » M 

WRITE  ( 6 . 1 5 5 ) I#  (OUT(I.J).  PHAS  ( J ) . >*■  1 . N ) 

155  FORMAT  ( 1H0,2hI».I3,/, (5(e13,7,2X.F4,0,2X) ) ) 

I5g  CONTINUE 

WRITE  (6.932)  IP 

932  FORMAT  (1H0.35HTHE  FOLLOWING  ARRAY  IS  PFO(l.J)  FOR, 15,  7HWiNdOWS) 
DO  1161  I = 1 » M 

WRITE  (6.155)  I»  ( PRO ( I . J ) , PHAS { J ) , J" 1 i N ) 
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1161  continue 

irdP  . Hg,  N I x ) G 0 TO  161 
DO  1162  J = 1 # N 

1 1 6 2 WRITEI6,  1355)  PHaS(J),  (PPO(I,J).  I ■l.M) 
1155  FORMAT  ( 1HO,0HPHAS(j)  = ,F4.O#/»  1C  (3X,Jt10,U) 
1 6 1 CONTINUE 

IPdriLE  i EQ.  IIFN ) GO  TO  58 
DO  16  IeC= 1 »?03 
’60  R EAD ( 8 < 4) 

IFdEOF  .EQ.  1 ) IEOF  « q 
50  ITFN  = IFILE 
60  CONTINUE 
GO  TO  1 

end 
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10.0 


1 

2 505  iy  9° 

STaTEHEBT  LABEL  BUST  BE  BETWEEN  1 AND  9999? 

. is  illegal  as  t«E  first  character  of  a statement 

3 5.g75  o.i:  1,0  <4.0 

U 100  300 

STATEMENT  LABEL  must  BE  between  1 AND  99999 

5 290  U 50 

STATEMENT  LABEL  bust  be  BETWEEN'  1 AND  99999 

6 400  600 

STATEMENT  LABEL  bust  be  BETWEEN  1 and  99999 
•STOP*  STETeMePT  is  BISSIEO-SIK.ULATED 
' E N j) * $TAtE«SNT  MlSSiNG-SjBULATED 
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8 . SAMPLE  PROBLEMS 

8.1  Description.  A sample  problem  is  included  for  checking  out 
program  AG2. 

8.2.  Input  Data.  The  input  data  used  for  the  sample  problem  is  shown 
on  the  following  page.  Any  portion  of  the  library  data  can  be  selected 
as  input  by  adjusting  the  problem  data.  The  input  data  is  explained 
in  Section  5.1. 
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6. <56 

O.ir 

1 .o 

4.0 

0.0 

0 .0 

2 410 

roo- 

1500 

-1550- 

■ V*SO 

-1400- 

1 200 

-1260- 

’0  50 
0406 

2f 

90 

-1 70.0 

0.0 

0.0 

12  1 

6.oc; 

0.10 

1 .0 

4.0 

0.0 

o .0 

2 410 

-7«o 

-550 

-600 

-400 

-4so 

-250 

-300 

-100 
04  05 

77 

<30 

-1  70.0 

0.0 

0 .0 

12  1 

5.05 

C.  10 

1 .9 

4.0 

0.0 

0 .0 

2 410 

100 

■«oo 

250 

4 so 

400 

600 

550 

7 SQ 
7406 

27 

90 

-1  ■’0.0 

0.0 

0 .0 

12  1 

6. <}S 

0. 10 

1.0 

4.0 

0.0 

0 .0 

2 410 

10  50 

12  50 

1200 

1 400 

1350 

’550 

1500 

/* 

1 700 

CC  = 0026 


8.3  Outgut  Data.  The  output  from  Procedure  AG2  for  the  sample 
problem  is  given  on  the  following  pages. 
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fMO'IT  CAM  VAI  IJCS 

Hr*  ?7  Of)  -1  70.000  0.0  0.0  12  1 

'.P'"  0.100  t.oor  4. npr  0.0  0.0  2 410 

4 

-7*0  -440 
-4P7  -401 
-4*5  -)  - 2er 
-in  - * o- 

W TNOOU  1 -75. orn  TO  -44, pic 


MAX  ANO  M TN  VAI  IJF4 


7 

0.21  e 4 7 4<7F 

01 

1 

7 

0.21*171  OF 
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POLARIZATION  SIGNATURE  TECHNIQUE 
PROGRAM  AG  3 
DOCUMENTATION 


1.  GENERAL 

This  exhibit  is  a documentation  of  Electronic  Data  Processing 
( EDP)  Program  AG1,  Polarization  Signature  Technique  Program,  produced 
under  contract  AF30(602) -67-C-0074  for  RADC  by  the  Fort  North  division 
of  General  Dynamics.  EDP  program  AG3  was  originally  written  for  use 
with  an  IBM  360  system;  however,  in  this  documentation  the  necessary 
changes  have  been  incorporated  to  make  the  program  compatible  with  the 
GE  625/635  computer  at  RADC.  This  documentation  has  been  prepared  in 
accordance  with  Electronic  Data  Processing  (EDP)  Programs  and  Program 
Documentations,  Requirements  for  Preparation  of,  Exhibit  RADC-3010  of 
17  January  1964. 

2 . ABSTRACT 


The  purpose  of  this  procedure  is  the  computation  of  average  polariz- 
ation signature  ratios  RH0H1  and  RHOHq  and  the  computation  of  the  ab- 
solute location  in  space  of  the  phase  centers  of  a vehicle.  The  library 
data  processed  by  this  procedure  consists  of  target  scattering  matrix 
data  obtained  from  magnetic  tapes  produced  by  procedure  A81 . The  output 
of  AG3  is  a listing  of  the  magnitudes  of  RH0L1  and  RH0L2  and  a plot  of 
RH0H1  and  RH0H2  as  a function  of  the  target  aspect  angle  and  a plot  of 
the  absolute  phase  of  a vehicle  as  a function  of  aspect  angle.  The 
computation  of  the  absolute  location  of  the  phase  center  is  a subroutine 
of  the  polarization  signature  program. 

3.  MACHINE  DEFINITION 


The  program  was  originally  written  for  use  with  an  IBM  360  computer 
system.  The  enclosed  documentation  is  in  Fortran  IV  language  and  is 
specifically  designed  for  use  with  the  GE  625/635  computer  and  the  EAI 
plotter  at  RADC.  A magnetic  tape  is  produced  by  the  GE  625/635  and  is 
then  run  on  the  EAI  plotter  to  produce  a plot. 

4.  PROGRAM  DESCRIPTION 


Program  AG3  is  divided  into  a main  program  and  five  subroutines; 
PLTPOL,  PLTPHA,  SKIPF,  PHASE  and  ERROR.  These  divisions  are  described 
b elow. 


4.1.  Main  Program.  The  main  program  performs  the  following 
f unctions : 

1.  Calls  the  problem 

2.  Reads  the  library  data  for  the  target  scattering  matrix 
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3.  Computes  the  radar  cross  section  at  a set  of  selected  polariz- 
ations (P)  and  forms  the  ratio: 


Ratio  - |o(e,e)  - o(e  + */2,  e)| 

|o(e,e)  + o(e  + */2f  e) | 

4.  Selects  the  polarizations  RH0H1  and  RH0H2  between  which  the 
ratio  is  greater  than  a prescribed  threshold  level 

5.  Averages  the  volume  of  RH0L1  and  RH0L2  over  a set  of  NN  aspect 
angles  to  produce  averages  RH0H1  and  RH0H2 

Figure  1 contains  a logic  diagram  of  the  main  program. 

4.2  Subroutine  PLTPOL.  This  subroutine  is  used  to  plot  RH0H1 
and  RH0H2  as  a function  of  aspect  angle.  GE  635  subroutines  LINE, 

NUMBER  and  STDBY  are  called  in  this  subroutine. 

4.3  Subroutine  PLTPHA.  This  subroutine  is  used  to  plot  the 
absolute  phase  in  radians  vs  aspect  angle.  GE  635  subroutines  LINE, 
NUMBER  and  STDBY  are  called  in  this  subroutine. 

4.4  Subroutine  SKIPF.  This  subroutine  is  used  to  select  the  correct 
file  on  the  library  input  tape. 

4.5  Subroutine  PHASE.  This  subroutine  computes  the  absolute 
location  in  space  of  the  phase  center  of  a vehicle.  Figure  2 shows  a 
logic  diagram  of  this  subroutine. 

4.6  Subroutine  ERROR.  This  subroutine  is  used  to  print  out  error 
messages. 

5.  INSTRUCTIONS  TO  CUSTOMER 


5 . 1 Input  Data 

1.  Library  Data.  Library  tapes  for  procedure  AG3  are  produced 
by  procedure  A81.  These  tapes  contain  scattering  matrix  data  - one 
matrix  per  cord  image  - in  cord  image  form.  Each  target  file  (not  a 
tape  file)  contains  six  identification  records  and  3,600  data  records. 
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INPUT 

9 , a#,  a/>,  Ti.ow 

K \D  UHRAHY  T APB  "j 
SCATTERING  MATH! X I 


COMPUTE 

SIN  P,  SIN2  P , COS  P,  (Os^P 

j P - P . J.'  j 

r 

- 9(> 


* VMS 
. — . 

H • H 


-J— i 

p - o | 


IQMPUTE 
/,r('>.  ») 


COMPUTE 
Jrr(()  + 7T / 2 , 9) 


RAT10(  />  ) - 10  LOG 


COMPUTE  ’-1 

| ] V'  <■  >',  »)  - f TT l X 1 | 

jl^T  <’,«><  V«(P  + TT/2,  W)|| 


i 

WRITE  RHOI  1(9) , RMOL2 ( w) 


< RATIO  ( P ) 4 TI.OW 


COMT'TE  AVERAGE 
OK  RHOI.l  (9)  OVER 
, 9 - NN/2<A«,  To  U * N N / 2 ( A 9 ) 

COMPUTE  AVER  ACE 
OF  RH01.2  (9)  OVER 
9 - NN/2  (A 9)  TO  9 + NN/2  (AO): 


. . _L_ 

PI.OT  AVERAGES 
RHOHI  (9)  , RHOtH2(9) 


< RATIO  (p)  4 TI.OW 


'!» 


. FIRST  TIME 


^ YES 

| RHOI.l  (9)  - p 

I RHOL2(9)  - 71 


YES  /«  > H X NO 
' M MAX  


Fig.  1 LOGIC  DIAGRAM  OF  PROGRAM  AG 
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2.  Problem  Data 


a.  Identification  Format 
Columns 


63  - 

68 

Job  number 

69 

ttptf 

70  - 

72 

Deck  number 

73  - 

77 

Cord  sequence  number 

78  - 

80 

AG3 

b.  Input  Parameters 

NN  Number  of  aspect  angles  over  which  RHOH 

is  overaged 

I0P1  - 0 If  VH  equal  0 

* 1 If  VH  not  equal  0 

I0P3  * 0 NO  polarization  plot 

* 1 Call  PLOT 


I0P4 

IREC 

NR 

L 

INC 

DRHO 

LP 

LIM1 

LIM2 


Dummy  variable  used  in  GD  plot 
routines 

Starting  record;  must  be  1,  2,  5, 

10  or  greater 

Number  of  files  to  be  processed 

Number  of  aspect  angles  to  be  processed 

Theta  increment  x 10 

Delta  rho:  polarization  increment 

Print  out  increment  for  library  data 

Lower  limit  for  end  around  test  for 
phase 

Upper  limit  for  end  around  test  for 
phase 
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NEXT  PROBLEM 


Figure  2 PHASE  SUBROUTINE  FLOW 
DIAGRAM 
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F 

Frequency  in  gigahertz  (■  0.  for  no 
phase) 

TLOW 

Threshold  level  for  polarization 
comparison 

LPRO 

Print  out  increment  for  polarization 
ratio 

LPTH 

Print  out  increment  for  theta 

NFILE 

Number  of  files  on  tape 

IFN(I) 

File  number  for  problem  number  I 

HDG 

28  column  aplanumeric  heading  data 

c.  Cord  Formats 

(i)  First  cord  of  each  problem  deck 

Cord 


Cols . 

1-10 

11-20 

21-30 

31-40  41-50 

51-60 

data 

I0P1 

I0P2 

IREC 

NR  L 

INC 

(ii)  Second 

cord 

of  each  problem  deck 

Cord 
Cols . 

1-10 

11-20 

21-30 

31-40  41-50 

51-60 

D ata 

DRHO 

LP 

LIM1 

LIM2  F 

NFILE 

(iii)  Third 

cord 

of  each  problem  deck 

Cord 
Cols . 

1-10 

11-20 

21-30 

31-40  41-50 

51-60 

61 

62 

Data 

NN 

TLOW 

LpR0 

LPTH  IRMI 

IRMA 

I0P3 

I0P4 

(iv)  Fourth  cord  of  each  problem  deck 

Cord 

Cols.  1-2  3-10  11-:* 

Data  IFN(I)  BLANK  HDClffj  , II  - 1,  7 

All  input  items  except  those  beginning  with  the  letters 
with  the  letters  I,  J,  K,  L,  M or  N must  contain  a 
decimal  point  and  may  contain  an  exponent  (power  of  ten 
by  which  the  number  is  multiplied)  in  the  right  most 
columns  of  its  field.  The  exponent  may  be  omitted  if 
the  last  column  of  the  field  is  blank.  When  input  the 
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4 


exponent  is  preceded  by  its  sign  or  the 
character  E and  contains  no  decimal  point 
Items  beginning  with  the  letters  I,  J,  K, 
Lm  M or  N must  be  right  adjusted  in  their 
respective  fields. 


5.2  Output  Data.  The  output  of  this  procedure  consists  of: 


1. 

RH0L1 , 

RH0L2 

Polarization  signature  ratios. 
These  are  listed  in  the  output. 

2. 

RH0H1, 

RHOH2 

Averaged  values  of  RH0L1  and  RH0L2 
over  a set  of  NN  aspect  angles. 
These  values  are  plotted  vs  aspect 
angle  on  the  EAI  plotter. 

3. 

A plot 

of  the 

absolute  phase  of  the  target  in  radians 

vs  aspect  angle 

5.3  Time  Estimate.  Approximately  eight  minutes  are  required  to 
run  one  problem  using  AG3. 
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c POLARIZATION  signature  technique  PROGRAM 

c 


* * 


delta 

PRINT 

LOVER 

UPPeP 


A «•  V V V |PW»  * \ "»W¥W/|4,flMwV  vriUfni'V  V / # JL  ^ 

3 SlNSQ(3800),cOSSQ(3600),SlcOS{3600).RATlO(36-  )»IRMI»IFRA 
6,BaTIOH(UOOO),LPTH,IH4 (2),IL1(2),IH2<2),IL2(2),IXH{2)  ,NEOF 

a 8 1 lieRaby  Tape  mounted  on  unit  e 

NN  = NUMBER  or  AspECT  aNGLES  OVeR  WHICH  R H OH  IS  avE*aGED 
I0P  1 
I0P3 
IftEC 
NR 
L 

INC 
DFHO 
LP 

Lifll 
LJM2 

r 

tlow 
LFRO 
LPTH 
NpILE 
IFN(I) 

HdG 

10  rewind 
neof= 

Read  (3,13)  iopi,xof2,irec,nr,l,inc 

11  FORMAT  ($110) 

Read  (5,12)  rRH0,LP,LiMi,LiM2,FtNriiE 

12  FORMAT  (P10.0, 3110, F10, 3*11!') 

Read  (5.13)  NN,TLOW,LPRO,LPTH,IRMl,IRv;A»Irp3*I:)P4 

13  FORMAT  ( j 1 0 , F 0 . 3, 1C, 2i  1 ) 


tape  mounted  on  unit  0 
NUMBER  or  ASPECT  aNGLES  over  which  r h oh  is 
0 IF  VH  .EQ,  0 *•  ■ 1 IF  VH  ,VB, 

0 NO  POLARIZATION  PLOT  **  * 1 CaLL  PLTOP 
STARTIITG  RECORD  * MUST  BE  1,2,5,  1 v , OR  GREatER 
NUMBER  OF  FILES  TO  BE  PROCESSED 
NUMBER  OF  ASPECT  A^CLfS  TO  bE  PROCESSED 
theta  increment  Xli 

RHO  **  ?OLaPIZaTION  INCREMENT 

out  increment  for  iib*a**  D A * A 

LIMIT  FOR  E"d  aR0UND  TEST  FOR  PHftSE 
LIMIT  FOR  END  A*OUNd  TEST  FOR  PHASE 

* FREQUENCY  IN  GIGIHERTZ  (=  ",  FOR  NO  PHaSe) 

* THRESHOLD  LEVEL  rOR  POLaBIZaTIOK  cOMPARlSON 

r PRINT  OUT  INcRe:'Ekt  FOR  POlARiZATjON  **RATiO** 
r PRINT  OUT  INCREMENT  FOR  THE^A 

* number  of  files  on  Tape 

* file  NUMBER  roR  PROBLEM  NUMBER  *i* 

= 20  COLUMN  aP^aNUMERIc  HEADING  Da^A 


1 = 0 

m i • i*i 

READ  (5,20)  If'N(I),  ( HDG  ( II ) , IT*  i , 7 ) , DPHlH  , I'PHI  V 
24  FORMAT  (x2,8X,7A4,2i101 
WRITE  ( « • 26 ) 

26  FORMAT  (19H1  INPUT  jHA  VAlVeS) 

WRlT£(6,999e ) ( HlG ( IIII ) , IIII  ■ 1 , 7 > 

999e  TORMAT  ( 1H  ,7A4  ) 

WRITE  ( 6, 1 4 ) I0P1,X0P2,IREC,NF,1,INC 

WRITE  (6,12)  DRHO,lP,LlM1,ilM2,r,NPItE 

WRITE  (6*13)  NN, TLOW, LPF0,LpTH, iRMI.I^MA, TOP <,I0P4 

NN  * <NN/2)*2+1 

WRITE (6,3050)  NN 

5 50  FOflMAT( 1H0, 14Hc0MPUTed  NN  = ,i4) 

2226  IF  ( IREC.SE*  1 : ) 50  TO  40C0 
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5C  TO  (4000, 4000, 39r0, 3900, 40  0,390  ,39  0,'9  ,39  0),IpFC 

3g00  Write  ( 6 , 3g C 1 ) IREC 

3901  FORMAT!  1H0,  ’8HTHE  VUlij  OF  iRec  * * I2  * 1 * * *5H  » Is  OT  A-C2PTABLe  TO  A r- 
»3i 

GO  TO  ,0 

4 00  DO  4 K*  1 # L 

PHOHI(K)  * -10.0 
PHOLl(K)  * -10.0 
RHOH2(K)  * -1C.0 
400  B H 0 L 2 ( K ) * -10.0 
NEOF  = 0 
NEOR  * 0 
NcNO  = C 

IE  (I.GT.1)  50  TO  29 

DO  27  IS*  1 * 7 
NS  = IS 

2’’  Read  <8.2e>  symbol 

2s  FORMAT  ( 77X , a ' ) 

DaTa  RH4/4HRH*  / 

IF  (NS.EO#7)  BACKSPACE  8 
IF  (SYMBOL. EQ.RH4)  GO  TO  2q 
WPITE  (6,20)  SYMBOL 

20  FORMAT  ( 3CH  iNcORRECT  SYMBOL  iN’  cOl  . 78-8  r , 3 X , A 3 ) 

2 9 IF  ( I • Eu • 1 ) 50  TO  40 

IF  (iFNtl) -EQ.IFN(I-I)  ) call  ERROR ( 1 ) 

IF  ( IFN( I) ,LT.IFN(1-1  ) ) 50  TO  30 

NSKIP  = I F W ( I ) - XFK(I-I)  - 1 
GO  TO  50 

30  Rewind  s 

40  NSKIP  e JFN(I)  - 1 

50  ChU  S KIPF(NE  i.  F, NEOR,  NSKIP) 

IPSK  * 1REC-1 
call  skipR(irsk) 

Read  (s«60)  (ihh(K), jhh(k),ivv(k), jw(k),ivh(k), jvh(k),k«i,l) 

60  FORMAT  ( 3X,6x.2l4,6X,2l4,6X,2i4) 

WRITE  (6.60)  (IHH(K),JHH(K),IVV(K),JVV(K).IVH(K), JVH(K),K=1.L.LP! 
IF(dRHO  . LE . GO  TO  370 

RPD  = 3.14159/180,0 
LL*  SC.O  / PRHO  *1, 

DEHO  = DRHO*P.PD 
DO  7 J * 1 , LL 
Z a5  = J-1 

SINSQ(J)  * (3IN( (ZA5)*DRHO) )**2 

COSSQ(J)  = (C  S( (Za5)*dRHO) )**2 

SICOS(J)  * SIN( (Za5)*dPHO)*cOS( (Za5)*DRHO) 

70  CONTINUE 
M = 1 

K-  1 

5C  TO  72 

71  K * K ♦ INC 

72  Np  * 
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Nl  * i 

ZA8  = JVV(K) 

tJjvv  = ( Zap  ♦ dphiv  )*fpd 

Z A 9 = JHH(K) 

TJHH  * ( ZA9  ♦ DPHIH  )*FPD 
COSVV  * COS(TJVV) 

SIN V V * SIN(TJVV) 

COSHH  s COS(TJHH) 

SINHH  m SlN(TJHH) 

ZA1*  = IVV(K) 

SVV  = 10.0**<  ZA IQ/200,0 ) 

ZA 1 1=  IHH(K) 

SHH  = 10.0**(  ZA 1 1/200 , 0 ) 

WF  = 3VV*COSVV 
VVI  = 5VV*SINVV 
HHF  = SHH*COSHH 
HHI  = 5HH*  SINKH 
IF  (I0P1)  110,80,110 
8Q  J » 1 

8 1 SIGH  = WR  * SINSQ(J)  ♦ HHF  * COSSQ(J) 

SIGI  = VVI  * 5 INSQ(J)  ♦ HHI  * COSSQ(J) 

PEFR  * V V H * COSSQ(J)  ♦ HHF  * SlMSQ(J) 

PEFI  * VVI  * COSSQ(J)  ♦ HHI  * SINSQIJ) 

x r * sjaR  - ?efr 

XI  * SIOI  - PERI 

sun  = SOFT ( XR  **  2 ♦ XT  **  2) 

DENOM ' * SOFT { SI5P  **  2 + SIGI**  2) 

DENOM2  * SQFT  ( PEFF  **  2 ♦ PEP.I**  2) 

fatio(j)  = su*  / {denohi  ♦ denoh2) 

IF  (FATIO(J)-iO.O**(-8) ) 85#  85, 9Q 
85  RaTIO(J)  ■ -160,0 
50  TO  100 

gO  FaTIO(J)  « 10,0  * ALOG  10 ( PATIO ( J ) ) 

100  CONTINUE 
GO  TO  200 

110  Jsl 

Z A 1 2=  JVH(K) 

111  TjVH  = ZA12*F/D 
JL  1 = 0 

Jt2  = 0 

JHl  = 0 
JH2  = 0 

CoSVH  » COS ( TJVH ) 

SINVH  » SlN(TJVH) 

Z A 1 3=  IVH(K) 

S V H = 1C.0** (ZA13/2:0,0) 

VH  F = SVH*COSVH 
V K I = SVH*SINVH 

SlGF  ^ VVB*SINSQ(  J)*-(2.0*VhR)*SIc0S(  J ) ♦HHF  *c  5SSQ  ( J) 
SIGI  = Wl*SINSQ(J)+(2,0*VHl)*Slc0S( J)+HHl*cOS5g( J) 
PpFR  * VVR*cOSSQ( J)-(2.0*VHR) *SlcOS( J)+HHF*SIVSQ( J) 
PERI  - VVI*cOSSQ(J)-(2,0*VHI) *SICOS( j)*HHJ*SIN3g(j) 
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X R * SIQb  - *ERR 
XI  = SIGI  - PERI 
SUM  = SQ«T(  XR  **  2 ♦ XI  “ 2) 

DENCM  * SQRT ( SISR  **  2 ♦ SIGI  **  2) 

DENOM?  « SQRT ( PeFB  **  2 ♦ PE?I  **  2) 

RaTIO(J)  r SUM  / ( BENCH  1 ♦ DENOM2) 

IE  (R*tIO(J)-'0.0**<-3)  ) M5,  11b,  117 
115  BaTIO(J)  ■ -160,0 
GO  TO  2C0 

117  RaTJO(J)  = 20,0  * aIOG10{RaTJO{ J) ) 

200  CONTINUE 

201  IE  (NJ..NE4  1 ) GO  TO  2n2 

IF  (PaTIO(J) .GT.TLCW)  GO  TO  2 ' 2 
NL  * MX.'*’  1 
Z A 11.=  J-1 

RHOL  i ( K ) “ ( (ZAiU)*DRHC)/RPD 
JL 1 = J-1 

202  IF  (RATIO(  J)  .GT.TiOW)  GO  TO  20** 

Z A 1 5 * j-1 

B K OL  2 ( K ) = ( ( ZA )5 ) *CRH0)/Rpr 
J t 2 = J-1 

20u  IF  (J.GE.LL)  GO  TO  2^6 
IF  (IOPI.NE.O)  GO  TO  205 
J = J + 1 
GO  TO 

205  J - J+1 
GO  TO  1 1 1 

206  IP  ( ( M-K 1 « NE  « - ) 00  TO  20  = 

M = M«LPTH*INc 

WRITE  (6,207)  K, (RaTIO( J) , J=1,Ll,iPRO) 

207  PORMAT  (23h  ASPjcT  ANGLE  NUMbeR  " »I5./f3*2  • L ) ) 

WRITE  ( 6 « 2C 9 ) JL1.PH0L1(K),JL2.RH0L2(K 

D' 

209  FORMAT  ( / 

D,~H  RHOL  1 ( » 15,  3H  ) » , E 20 . 7 , 1 CX , 7H  FHOL2  ( , J5,  31! ) = ,k2',7) 

208  IF  (K.IT.  L)  GO  TO  71 

DO  2 9O  K*  ’ » I. 

2 90  WRITE  (8.205  M K.FHOt  ' ( K ) ,K,RHOL2(K) 

2 91  FORMAT  ( 1HO,6KRHOI,1  ( ,iU,  2h  ) = ,e2‘ ,7,5x»  6HF  OL?  < , I ■*  , 2H  ) * , £ 2 v . 7 ) 

N N = NN-1 

N2N  = NN/2 

N2N  ' i N 2 N ♦ 1 

KL  1 = 1 ♦ IN'C 

K 12  = 1 ♦ W 2 N * I N C 

KL3  = L -(N2N-1)*1NC 

K * 1 

RHOH  2 ( 1)  e F HOL  1 ( l) 

DO  51  KlK  = 1 , N 2 N 
JKJ  16  = 1-KIK*INC 

5IO  R HOH  2 ( 1 ) » R H H 2 ( 1 ) ♦ RHOIKJKJ'e) 

ZA 17  =•  K 2N  1 

RHOH  '(1)  * R H 0 H 2 ( 1)  / ZA17 


J 
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JJJ  = 0 

Do  52  K = KL1,KL2,INC 
JJJ  = JJJ  * 1 
JKJ18  = K-INC 
RHOH2(K)  * RHOH2(JKJ18) 

JKJ19  x K+N2N4lNC 

R H OH  2 ( K ) x RHOH2(K)  ♦ R HOI  1 ( JK J 1 9 ) 

Z A 2 . = K 2 N 1 ♦ 

520  PHOHKK)  = R HmH2  ( K ) / (Z*20) 

WRITE ( 6 , 50C  0 ) KL2  , RHOH  ( K L 2 ) 

K = KL2 
598  K x k ♦ INC 

JKJ21  * K-(  (N  IN)/2)*lNC 
RHOH2(K)  * RHOL1 ( JKJ21) 

600  Do  7v  KK  = 1.K1K 

JKJ22  « K-( (N  N)/2-KK)*INC 
700  P H 0 H 2 ( K ) = RH  H 2 ( K ) FHOI1(JKJ22) 

Z A 2 3 = N N 

RHOHI(K)  = R HOH2 ( K ) /ZA23 
IF  (K.LT.L-N2N*INC)  GO  TO  598 
WRITE(6,5000)  K , RHOH  1 f K ) 

JJJ  = o 

Do  63  K=KL3,L,IKC 
JJJ  = JJJ  + 1 
J K J 2 9 3 K-INC 
JK J24A»  K-N2N  *INC 

RHOH  2 ( K ) = RHUH2  { JK  J2u  ) - RHOL  1 ( JKJZ^A  ) 
Z A 2 5 = KN-JJJ 

630  RHOHI(K)  = F.  H 0 H 2 ( K ) / 2a2$ 

WRITE(6,5000)  L , RHOH'fL  ) 

5 00  FORMAT  {1HO,6K*KOH1(*IU,2H)=.E2:.7) 

K * 1 

RHOL  1 ( 1 ) = RHOX.2  ( 1 ) 

Do  8 1 ' KIK  = 1,N2N 
JK  J 2 6 * 1+KIK* INC 

810  RjlOL  1 ( 1 ) = PH'.’L  1 ( 1 ) ♦ RHOL2 ( JK J2g  ) 

Z A 27  = N2N1 

RHOH  2 ( 1 ) = RHOL 1(1)  / Z A 2” 

JJJ  = 0 

DO  82  K = KLi,KL2»I^C 
JJJ  = JJJ  * 1 
JKJ28  = K-INC 
RHOLMK)  = R H L 1 ( J K J 2 8 ) 

JKJ29  = K + N'2N*INC 

RHOLKK)  = RHCLi(K)  + RHOL2  ( JKJ2g) 

Z A 3 " x N 2 N 1 ♦ JJJ 
820  RHOH  2 ( K ) = SHCH(K)  / ZA3C 

WRITE (giBOOO)  KL2  , RHOH2 ( KL2  ) 

K = K L 2 
398  K = K * INC 

JKJ3I  = K«( ( V - N ) / 2 ) * I V C 
RHOL  1 (K ) = RH<  L?( JKJ3  1 ) 
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900  DO  1 C KK  = ,KU 

JKJ32  * K-( (N'N)/2-KK)*INC 
1 00  Rl'OL'(K)  =»  RH'LI(K)  * FHOL2 ( JK J 32 ) 

Z A 3 3 = N N 

RHOH  2 ( K ) * RHTLMK)  /Za33 
IF  (K.LT.L-N2JJ*INC)  GO  TO  6g8 
WRITe(6,80C0)  K / P H 0 H 2 { k ) 

JJJ  = o 

DO  93  K=KL3,L,INC 
JJJ  = JJJ  + 1 
J K J 3 U = K-IKC 
JKJ3ua*  K-F2N’*INC 

Rl'OL  1 ( K ) = BHOL1(JKJ3u)  - RHOL?  ( JK  J 3 4 A ) 

Z a 3 5 - K K • J J J 

930  RHOH  2 ( K ) = HHuLI(K)  / ZA 35 

WRITEf  5#  gOOC ) L , FHOH2 ( L ) 

9 01  FORKAT( 1H0#I«# e20,7,E20.7) 

8 00  FCRMAI  ( 1HO#6nRHOH2(  ,I4,2H)^,f2  .7) 

IF  (IOP3.NE.1)  GO  T0  370 

C **  RHOH"  IS  LOVeF  Li  HT  OF  POLARIZXTION  EN'ELOtE 

c **  RHOH  2 jS  U P P £ R L J H I T OF  POLAPjZATiON  EHVrl,OPE 

217  c A li  FL'iPOL(BHOH1»RHOH2  , xNC  * L ) 

3 7 C IF  (F.eu.O.)  GO  TO  380 

C **  R ^ TjO  IS  citm''lATIVE  PhASZ  F0R  VeRTIca1  POI  x8lZ  ATlON 

c **  PATlOh  IS  c':m"latIvF  ?HASf  FOR  HORIZONTAL  POL  RiZATiOK 

175  CALL  PHASE 

3g  0 CONTINUE 

IF  (I. LI .NR)  GO  TO  14 

-*2 1 WRITE  (6.422) 

J 2 2 FORMAT  ( 1 H ,2  HTHJS  JOB  IS  cO:"  F i.  ET  E . ) 

STOP 

END 
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1 

2 

3 

U 

5 

6 

6 

9 

1 

1 t 

12 

13 

1 4 
15 
H 

17 

18 
19 

2 

2 ' 

22 

2? 

2“ 

25 

26 

27 

28 
29 
3 

31 

32 
3? 

3K 

35 

DO  LOOP 

36 

to  LOOP 

37 

38 

39 
u 

4' 

42 

43 
4» 
45 


»»»»««!«*  t,{s 

“r_.  v c • • / O.O.  29.0,  2,0,  ' V n _ . 3.5,  0.0  / 


- » * 

DIMENSION  XF,k*''0','  nm"Vh'  2 0..  17. C.  °*  • ’*?'  2’n  / 


mcP  x 10 

GO  TO  217 
215  INC?  * I"c 
2 1 7 CONTINUE 


C *** 


* CUL  KUttBEB('i80.  < 

XPaB(7)  - 1.0 

”-10. 

»• 

ZlVllAil?  «• 

Uii‘ ««!«<'  »»• 

IpM  = L - 


tPER 
, TFER 
, TPiR 

, m* 

, mR 

, tpaR 
, tper 
. TFaR 
, tPAR 


I 

i 

1 

1 

) 

1 

) 

) 


Jo’ 2 k . 1f  IBM.  XKCP 

J » J * 1 
X A B ( J ) x K 

„ , "■&  *»  ««  °p  ‘■"0>nu  n"CT,;  s 
1 =»  n'ycTI'“ 
XHttX  X NAT  BE  RED*.ri»«- 

II  s J 
20  CONTINUE 

C *•'  , v „ v»a  , II  , XF A R » ^PAR  1 

'S  S',  1 31  ’•  *»»  • 11  • >'*"•  "** 1 

call  stlbi 
call  stdbt 
return 
end 
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i 

SUBROUTINE  PLTPHa 

(Ratio  , 

2 

DIMENSION  xf ak ( 8 ) 

, IP  A® ( 6 ) 

3 

data  XPA«  / 0.0,  29.0,  2.0. 

u 

data  i?a"  / 0.0  * 

29,0  ,15. 

5 

IF  (INC. 01. 10)  GO 

TO  85 

6 

INCP  = 10 

7 

Go  TO  90 

8 

85  INcP  * INC 

9 

90  CONTINUE 

1 

C 

* • • 

1 1 

1 CALL  NUKBEP(-iBO. 

,1,XPAR  . 

12 

XPaR ( 7 ) a 6.3 

13 

CALL  NUMBER ( -90. 

, ’.xpar  , 

14 

XPA8P)  = 10.  S 

15 

CALL  NUKbER(  0. 

, i# xpaR  . 

16 

X P AH ( 7 ) - 15.3 

17 

call  numbek(  go. 

, 1 » XPA8  . 

1 8 

XPAP(7)  - 19.8 

: 9 

call  kukbeR(  i 8 o . 

, i.XPaB  , 

2' 

XPAR  ( 7 ) = 1.0 

21 

call  number  ( o.o 

, 1 .XPaR 

22 

TP AP ( 7 ) . 20.: 

23 

call  number  ( >o.o 

, 1 ,XPaR 

24 

IP A R ( 7 ) a 25.0 

2? 

call  number  (20.0 

, 1 .xpar 

26 

IP  AR ( 7 ) - 28.0 

27 

call  number  (26.o 

, 1 ,XPAR 

26 

IbM  = L - INC? 

29 

J = 0 

3 

DO  2 K ■ i , IBM, 

INCP 

3 • 

J = 0 * 1 

32 

XaH(J)  = K 

33 

IaR(J)  = RATIO(K) 

LOOP 

index 

K Ma7  not  ee  redefined  in  call 

34 

ZAR(J)  * RATIOH(K) 

LOOP 

irdex 

K Mai  not  be  redefined  IN  call 

35 

It  - J 

36 

20  CONTINUE 

37 

c 

Ml 

36 

call  line  ( xar  , 

XAR  , II 

39 

call  line  ( xab  , 

ZaR  . II 

4 

call  stpbi 

4 1 

call  stdbi 

42 

return- 

43 

end 

. b » 


TPA» 

XPA» 

TP*R 

I?AR 

IPA* 
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, Z AP { 36  ) 
0.1  / 
0,0.0/ 


subroutine  skipf (neot, neor, nskipj 

1 ir  (NSKlFiEQ.C)  00  TO  110 
NCNO  = 0 
NFS  = 0 
NCNOI  * NCNO 

call  flgeof(8#ieod 
10  READ  (8# 15)  NCNO 

If ( IECF  .EQ,  ')  GO  TO  40 
15  FORMAT  (t2X,l5,3x) 

IF  (NCNO. GE. NCNOI)  00  TO  20 
NJOF  = Nf 0F+ 1 
NFS  = NFS  ♦ 1 

20  IF  (NcNO.NE. 1)  GO  TO  10 
IF  (NFS.LT.NSKIP)  GO  TO  10 
BACKSPACE  8 

30  return 

40  CaIL  eRR0R(2  ) 

Go  TO  30 

ENTRY  SKIFR(IRSK) 

nrs  = 0 

IF  (IRSK.EQ.O)  GO  TO  110 
call  flgjof(8,ieof) 

IF(IE0F  '.EC.  ')  GO  TO  100 

80  read  (8fo0)  di?mmy 
90  format  (ix) 
neon  = neor  ♦ i 
NRS  = NRS  ♦ 1 

IF  (NRS.LT.IRSK  ) GO  TO  pO 
GO  TO  110 

100  call  ebror(  -) 

110  return 

END 
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SUbB&UTIKE  ERROR(KERROR) 

GO  TO  ( 10  , 20  , 3C  ) , KERROR 

10  WRITE ( 6 . 100) 

1 00  F0R«AT(39H  WRONG  TAPE  FILE  CALLED  * KERFO?  = ■ ) 

GO  TO  1i0 

20  write ( 6 . 200 ) 

200  FORMAT! ?9H  UNEXPECTED  ENd  OT  TILE  * Ke*ROF  - 2 ) 

GO  TO  HO 
30  WRITE ( 6 . 300) 

300  format ( 39H  unexpected  e^d  or  file  * keRROF  = 1 ) 

110  STOP 
END 
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iJ 


o on 


subroutine  phase  phase  center  ANALTSIS 


CoMKON/bLOK/NFOR,NSKIP,RHOHi(uO  0),RHOLi(u  ' )#RKOH2<uO  0J.RK0L2 
KUO  ),I0P  MOP2,IREC,NR,L,lNc#DRHO,LPiLI«  , LIM<  , F,  NFILF',  K,  XR  , SHH  , 

1 U.RPD#KOP1,:<IN,MaXi  J«SVV,XI,  Wb.TJVV.TJH  ^COSVV,  VVI,SINW,COSHH, 

2 SJNHH.HHR,HHI,Si8P,SiGI«FeRB,  Peri*  sum,  PEKOMKdeNOM2,T.JVH,SVH, 

3 cOSVH.SlNVH,VHR,VHl,Xl,AflriA,IFN(  20)»HDG(7)  f IX(«‘)  ,xT  ( 2)  , 

4 IVV(UOCO)#JVV(UOOO),IVH<UO'0),JVK(«050),I  .H(U  ) , JHH ( UO0 . ) * 

5 SINSQ(3600),c°SSQ(3600),SicOS(  3600).PATiO(3'>  ) , IR^I, II M A 

6,RxTlOH(ttOOO),LPTH#lH1(2),li1(2).XH2(2),XL2(2),irH(2)  ,NEOF 

xiaMda  * 3.0/( io.o*r*c,C254)/72:.o 

* JVY( K 

RatI 0(1)  ■ Za*1*XIa«Da 
MM-1+IRc 

DO  3 I-MN.I.INC 
MpHI  = C 
JKJH2  « X-INC 

IP  ( JVVfl)  .LT.LIM2,  OR.  JW(  JKJH2)  .GT.lIMI ) 0 0 TO  25 

9 01  MPHI  *-360 

GO  TO  30 

25  JKJHU  * X-INC 

IF  (JVV(I)  .GT.LIM1,  OR, JVV( JKJHu) .LT.IXK2)  GO  TO  3" 

9 00  MPHI  = 360 

JKJHg  * I-INC 

ZAH6  =( JVV(I)-JVV(JKJH6)+MPHI) 

30  RATlO(x)  «RATlO( JKJH6)  ♦ Z AH6 * XLAMd* 

WRITE  ( 6 § U 1 ) 

41  FORMAT  ( 1HC»3°HOUTPUT  pATA, PHASE  cEk*ER  IN  iNc'-E*3  (VV)) 

WRITE  (6,UC)  ( RATIO ( I ) » I = 1.L.LPTH) 

40  format  (Sfp.k 

ZaH7  = JHH \ 1 ) 

R ATIOH ( 1)  = ZAH7*XLAMDA 
DO  7 I»HM,L,INC 
MPHI  = C 
JKJH8  * I-INC 

IF  ( JHH(X) .IT.LIH2,  OR, JHK{ JKJH8) .QT.LIM1  ) GO  TO  gO 
9 02  MPHI  --360 
GO  TO  70 

60  JKH 1 * I-INC 

IF  ( JHH(I) .5T.LIM1,  OR , JHH ( JKH 1 ’ ) , IT . UM2 ) GO  TO  7. 

9 03  MPHI  - 360 

JKJH  '2  * I-INC 

Z aH 1 2 * JHH(I)-JHH(JKJH12)+KPHI 
70  R ATIOH  ( I ) = RATIOH{  JKJH  12)  ♦ ZaH  12*XJ,AMDA 
WRITE  ( 6 , 7q ) 

79  TORMAT  ( 1H0, JiROUTPUT  pATA, PHASE  CENTER  I K INcKe5  (HH)) 

WRITE  (6,80)  (RxTIOH(I),  1= 1 , l, IPTH ) 

80  TORMAT  (5F8.3) 

caJ-i.  pltpha(  Ratio  .RaTIoh  , ikc  # l ) 
rfturn 


end 
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(the  reverse  of  this  page  is  blank) 


8.  SAMPLE  PROBLEM 


8.1.  Description.  A sample  problem  is  included  for  checking 
out  program  AG3. 

8.2.  Input  Data.  The  input  data  used  for  the  sample  problem  is 
shown  on  the  following  page.  The  input  data  is  explained  in  Section 
S.l . 
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«r 
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1 l 3600  1 

90  2 70  0.0  3 

2 . 100  -3  30 

W = - 1 5 C 0 2 666  NN- 7 
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r 


A 1 

lLU*=-15 

002666  NN=7 

RhuL  1 ( 

2)  = 

0. 9599599c 

01- 

KHUL2 ( 

2)  = 

C . 7 9 5 9 9 9 6 £ 

02 

RHUL  1 ( 

3 ) = 

L . 5 5 999 59 t 

01 

KHCi  L 2 ( 

3 ) = 

0.  79  9 9 99  j t 

C2 

RhCL 1 ( 

't)  = 

C . 2 195998k 

02 

KmLL2 « 

•*)  = 

0.679  9 / 9 6 fc 

02 

RHUL 1 < 

6)  = 

0.21995981: 

02 

RmUL2 ( 

5)  = 

0 . 67 9999  6 fc 

02 

RHUL 1 ( 

6)  = 

0. 1 7999961: 

02 

RHUL2 ( 

6)  = 

0. 71 99995 fc 

02 

KhuL 1 ( 

n = 

0.1  7 9 5 9 9 8 1 

02 

KHCL2 ( 

/)  = 

C.  715  5 99**  fc 

02 

RHUL 1 ( 

3)  = 

0.0 

KHUL  2 ( 

8 ) = 

0. 699999 7 1 

02 

KhjL 1 ( 

9 ) = 

0 . 1 799998c 

02 

KI1UL21 

9)  = 

0.  719  9995  fc 

02 

RHUL 1 ( 

10)  = 

C. 99995 99L 

01 

RHUL  2 ( 

10)  = 

G . 7999596E 

02 

RhUL 1 l 

1 1 > = 

0.9599999k 

01 

RHUL21 

11)  = 

0. 7 9 9 9 9 9 5 fc 

C 2 

R HUL  1 ( 

12)  = 

C. 1 799996c 

02 

RHUl 2 ( 

12)  = 

0. 7199995  E 

02 

RHUL  1 ( 

13)  = 

0. 1 *000C0c 

C2 

RHUL2 ( 

13)  = 

0. 75 9999 8 E 

C2 

RHUl  1 ( 

1*.)  = 

0.2199998t 

02 

RhOL2 ( 

15)  = 

0 . 6 7 9 9 9 9 6 1 

02 

RHUL 1 ( 

15)  = 

0. 1 7 9 9 9 5 H t 

02 

RH(jL2  ( 

13)  = 

0. 7199 5 95£ 

0 2 

RHUL  1 ( 

l fc ) = 

0. 1 799  9 9 6 1 

02 

RHUL2 ( 

1 6 ) = 

0. 7 1 95  995  t 

C 2 

KHUL  1 ( 

17)  = 

0. 1 7 9 9 9 9 d t 

02 

KHUL2 ( 

1 7)  = 

0.  71  99595 fc 

02 

RHUL 1 1 

18)  = 

0.  23995961: 

02 

RHUL  2 ( 

18)  = 

0 . 6 6 99 99  7 E 

0 2 

R HUL  l ( 

19)  = 

0.2  395998L 

02 

RMCJL2  ( 

19)  = 

0 . 669599  7 fc 

02 

KHUL  1 ( 

20  ) = 

0 . 3 3 999961: 

C2 

kMUL2 ( 

20)  = 

0 . 6599558 t 

C 2 

RHUL  1 ( 

2 l)  = 

L . 3 3995  7-3t 

02 

Ri)c<L  2 ( 

21  ) = 

0 . 6 5 5 5 9 9 8 fc 

0 2 

KHUL  1 ( 

22)  = 

C . 2 599996k 

02 

RhO  L 2 ( 

22)  = 

0 . 599959  t L 

02 

KHOL  l ( 

2 J)  = 

0. 2399998k 

02 

KHCL  c ( 

23)  = 

0 . 659999 7 fc 

02 

RHUL  1 ( 

29)  = 

0. 2 /59998c 

02 

KHUL  2 ( 

25)  = 

0. 6999995 t 

02 

R HUL  1 < 

23)  = 

0.  <r  795  956k 

02 

RHUL 2 ( 

26)  = 

O.f 1995931 

02 

KHUL  1 ( 

26)  = 

U . «:  39  99  98k 

02 

RHUL  2 ( 

2o)  = 

0. 635959  3t 

('2 

RHUL  1 I 

2 7)  = 

0. 2595596k 

02 

184 

RHUL2 ( 

27)  = 

0. 63999931: 

02 

i 


A 1 

TL0r,=  -15 

CCicoc  NN  = 7 

RHGL  1 ( 

2d ) - 

0.2  199998E 

02 

KHUL2 ( 

28)  = 

0.C.799995E 

02 

RhGL  1 ( 

29)  = 

G.c59999bc 

02 

RHGL  2 ( 

29)  = 

0 . 639999HE 

02 

khgl i ( 

30 ) = 

U . 3 39999bc 

02 

RhOL2 ( 

30)  = 

0 . 5 5 'y  9 9 9 6 E 

02 

KHUL  1 ( 

31)  = 

0.  3 9 3 9 9 8 1 

02 

KHUL2 ( 

31  ) = 

0.559 9 998E 

02 

RHGL  l ( 

32)  = 

C . 2 1 99998c 

02 

RHGL2I 

32)  = 

0.6  799995  E 

02 

KHUL 1 ( 

33)  = 

C . 2 399938c 

02 

RHGL21 

33)  = 

0. 6399998E 

02 

RHGL 1 ( 

34)  = 

0.2  79999b£ 

02 

RH0L21 

34)  = 

0. 6 19999 8 £ 

C2 

RHOL  1 l 

33)  = 

0.2  9' 99998C 

02 

KHQL2 ( 

35)  = 

0. 5999994E 

02 

RHGL  1 ( 

3 t>)  = 

0. 2399998c 

02 

t<r1CL2  ( 

3o)  = 

0 . 6 3 99 998 E 

02 

RHGL  l ( 

37)  = 

C . 2 j99938c 

02 

K H G L 2 ( 

37)  = 

0 . 65 9999 7 E 

02 

RHGL  1 ( 

38)  = 

0.2  7 9 9 9 9 8 1 

02 

RHGL2 ( 

38)  = 

0.6199990E 

02 

RHGL  1 ( 

39)  = 

0.27999  /8E 

02 

RHGL2 1 

39)  = 

0.61999986 

02 

KHOL 1 ( 

<i  0 ) = 

0.2  799998b 

02 

KHGL2 ( 

40)  = 

0. 6199998E 

02 

RHGL  1 1 

4 1 ) = 

0. 2599996C 

02 

RHGL2 ( 

4 1 ) = 

0.59999946 

C 2 

RHGL  1 ( 

A /L  ) = 

0.29993360 

02 

RHGL2 1 

42)  = 

0 . 5 y 999 9 4 6 

0 2 

RhGL  1 ( 

A3)  = 

0 . 2 9 9 9 9 9 o t 

02 

KHUL2 ( 

43)  = 

0.59999946 

02 

RhGL  1 ( 

4 4)  = 

L • 2 7999 9 8t 

02 

KHUL2 { 

44  ) = 

0. 6199998E 

C2 

RHuL  1 ( 

4 3 ) = 

C .25999966 

02 

RllGL 2 ( 

45 ) = 

C. 59993946 

C 2 

RHGL  1 ( 

'itlJ- 

0 . J20000OC 

02 

knGL2 ( 

4 0 ) = 

0.57999956 

C 2 

RHGL  1 l 

4 7)  = 

0 . 299999 b L 

02 

isHGl.  2 ( 

47)  = 

0 . 599  999  4 6 

02 

RHOL  1 ( 

4b)  = 

0. 2999998E 

02 

KI1GL2  ( 

43)  = 

0.59999946 

02 

KHOL  1 ( 

49)  = 

0. 2599998E 

02 

KHCL2 ( 

49)  = 

0. 5999994E 

02 

KHUL  1 ( 

50)  = 

0. 3 399398b 

02 

RHGL21 

50)  = 

0.55999986 

02 

KHUL 1 ( 

5 L ) = 

0. 3599996c 

02 

R H fj  L 2 ( 

51)  = 

0.53999986 

02 

KHGL l l 

32)  = 

0. 3 399996b 

02 

C.HCL21 

52)  = 

0 . 55999966 

0 2 

KHGL  l l 

II 

0 . 3 3 v999ct 

02 

RHGL2  < 

53)  = 

0.55999966 

02 
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SECTION  VII 


SIGNATURE  TYPE  AMBIGUITY  STUDY 
COMPUTER  PROGRAM  DOCUMENTATION 


186 


¥ 


Enclosure  (B) 

H65  - FORTRAN  IV  SOURCE  DECK  LISTING 


C 

f.  MGNATURF  T VP  E APPIGUITY  STUDY 

C 

CCMMPN 

^ 1/AA1/SMAT  ( 37CC.61  M1(FI,  ACUTl,  ACUT2, 

2 ACUT  3 , ACUTA 

OIMfcNSIUN  APnYCC),  FT  370"  I ,FF116l  ,EE2I6»  ,E1I6I 
^ NTA  = NT  A 
PtWlND  N T A 
NUl  1 = - 1 
ACUT1 *1  PC. 

ACUT  2*0 • 

ACUT  3 = 3fcC . 

ACUTA  * 18  1. 

20  BF  AL(  5 . ICC  *>  » NNN, TN.MA  ,SN  , SAN, NS . AVGNA 

21  MbAOl  <5,  1C2C  1 K, A1.A2, A*,AA,A*.  J 

I.L  10  ( 3D.AC.SC.6C,  7C. 30,90. IC^ I ,K 
3 C NC=  J 

r,u  rt>  ?i 

Al  i s an=  J 
AVoN*  A2 
NSS  * J 
UJ  TP  21 
5.1  *1(<I»A1M 
*1 ( 3>  =&?*. 1 
*»1<A)*A3«.1 
**1  < 51  »A*«.  1 
*1(  61  = AS4.  1 
GU  TU  21 
6^  Fl( 21 * A 1 
fc  1 ( 3 1 = A 2 
F 1 I A)  = A3 
1 1 < 5 1 = AA 
F 1 ( 6 1 * A 5 
Ml  10  21 
7 J ACUT 1 = A 1 
ACUT2= A2 
ACUT3=A3 
ACUTA  = AA 
ISMVArf=AF+.  1 
GU  TO  21 

flJ  I()P  T=  A 1 4 . I 

GU  TO  21 
90  LNl.  bp  A =A1 
, GU  TO  21 

10<  WMITF  (6,10'Fl  NN1  , 1 \, PC , SN  , S AN  , AV GNA , NS » 

1 t 1 <21  ,61  l.4>,fl  <A»,F1I  ‘1,11161  , 

2ACUT1 , ACU12,  ACUT 3,  ACUTA,  IS^VAP 
C 

r.  f 1NU  CIMBECT  SCATTTP  1*  G MATkIX  UATA  Ci\  TAPE 

C 

CALI  FLCFCFINTA, IFOF) 

If  INC  ,*r.  Mil  1 1 Cl  TU  l )\ 

till  K5  I*1,MJV 

105  S*AT < 1 , 1 ) = AHS ( S“AT I 1 . 1 1) 
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GO  TO  18C 

101  IF  (NU11  .60.  -1  ) GO  TO  103 

10?  HEAD  (NTA) 

IF  (ItOF)  102,102,  103 

103  ItOF  « C 
REAO  ( NT  A I 
LOC*103 

IF  ( 1 EOF  I 104,  104, 550 
10 A P t A C ( NT  A I NU1 
LCC«1C4 

IF  UECF)  lCt.lCt.550 
106  IF  (NO  .EQ.  NCI)  GO  TO  150 
110  READ  I NT  A ) 

IF  ( 1 EOF  ) 110,110,103 
C PE AC  IN  SCATTERING  MATRIX 

14C  I«l 
NUM*0 

141  READ  ( NT  A I I SM AT ( I , J ) , J * 1 , 6 ) 

L OC  * 1 4 1 

IF  (IECFI  143,143,179 

143  IF  ( SMATM.l)  .IE.  ACUT1  .AND.  SMAT(I.l)  .GF.  ACUT? 

l.OR.  SMAT (1,1)  .LE.  ACUT3  .AND.  SM AT ( I , 1 ) .GE.  ACUT4  ) GO  TO  142 
GO  TO  IPO 

142  IF  (ISMVAR  .IT.  1 ) GO  TO  147 
DO  145  IJ«1, ISMVAR 

144  REAO  (NTAI 
L0C*1 44 

IF  ( 1 EOF ) 145,  145.179 

145  CONTINUE 
147  NUM«NUM  ♦ 1 

1 = 1*1 
GO  TO  141 
179  1 EOF  = C 

BACKSPACE  NT  A 
C 

t CHECK  FrP  SVNTHFSI2ING  ADDITIVE  NCISE  SCBROCTINF 

1 8C  IF  ( 1 S AN  .EC.  I ) CALL  SANSCB(  NDM.  A VGN  ,*190 

C 

C CHECK  FCR  NCISF  SlIPTR  ACT  ION  SUBROUTINE 

IF ( NS S .FC.  2 I CALL  NSSSLB(  NLM,  AVON, 1190) 

19C  11=1 
K * 1 

AVGSI 2-0  . 

AVGOI A=C. 

I CUNT «C. 

II>1 

20C  IF1 SMAT ( I 1 , 1 ) .GE.  C.C  ) GO  TO  2C5 
I 1=1  l*  l 
K«  I 1 

IF  (K  .GT.  NDM)  CO  TC  2SC 
GO  TO  ?PC 
205  DC  210  I J*2 . t 

IF  ( M 1 ( I J)  .FC.  C>  GO  TO  210 
EE1(  IJI  = S"AT ( K , 1 J ) - E 1 ( I J I 

188 


EF2  t 1 J ) * SMATCK.IJ)  ♦ Ell 1J) 

210  CONTI NUF 
220  ICONT -ICONT+l 

EC  I COM  I * SH AT  ( K • 1 » 

SMATCK.l)  » -SMATCK.l) 

MK  + 1 

IF  CK  .GT.  NUH  ) GO  TO  245 
227  00  230  IJ-2.6 

IF! Ml < I J I .EO.  0 I GO  TO  230 

IF  ( SMATCK.l)  .IT.  O.C  .OR.  (SMATCK.IJ)  .IT.  EF1CIJ)  .OR. 
SMATCK.1J)  .GT.  FF2(IJ))I  GC  TO  232 
230  CONTINUE 
GO  TO  220 
232  K*K«-l 

IF  C K .IE.  NUM  ) GO  TO  227 
245  IF  CICONT  .EO.  G)  GO  TO  2 SC 
250  CICONT*  ICONT 
DNUM*NUM 
CCS*OICONT/CNUM 
AVGSIZ*  CCS  ♦ AVGSIZ 
DAXM*0. 

00  260  1*1, ICONT 
DO  260  I J*I .ICONT 

IF  I DAXM  .LT.  AMOUCABSCEC  I)  - E ( I J ) ) , l eO.  ) ) 0 AXM*  AMGO  C AHS  ( E II ) 

ie (i jii. ieo.i 

260  CONTINUE 

DK  *0 AXM  /ONGRMA 
AVGOIA*  DK  ♦ AVGDIA 
API  II 1*1./  3.0  *(CCS4*2  ♦ DK **2  ) 

MRI TEC  6. 100 1 ) II.CCS.II.DK 
IF  ( I OPT  .NF.  1)  GO  TO  2 70 
WRITEC6.10C3)  (EC  U),  1 J*l,  ICCNT) 

270  11*  I 1 + 1 
II* 1)41 
ICUNT  *0 
K*  I 1 

IF  (II  .LF.  NUM  ) GO  TO  2CC 
29C  AA*G. 

ICN*I I -1 
DCN*I  CN 

ENNUEC* 1 .-DCN/FLOAT (NUM) 

OC  300  I J*  1 . I CN 

API  I J ) = S CRT  f 1 • / 3 • *(  ENN0EC**2 ) ♦APfIJM 
30C  AA* 1 . / ( DCN  )*APCIJ)*AA 
AVGSIZ*  AVGSIZ  /DCN 
AVGDIA*  AVGDIA  /DCN 
UA*0. 

DO  31 C IJ*1.  ICN 

310  DA*  ( l./DCN*( AP( I J )-AA) **2 I + DA 
DA*  SORT  CCA) 

MRITEC6,  1011  ) ( AP( 1), I *1, ICN) 

WRITEC6,  1004)  AA , DA , ENNOEC 

MRI  TEC6, 1013)  AVGSIZ  , AVGDIA,  NLM 

N01 1 * NO 

1000  FORMAT (I2.2X5E1C.4. 3X|4) 

1001  FOPMAT  ( 1 X 4 F*  CCS  14, 2H  )*  F1G.4.5X4H  DCS  I4,2H>=  F1C.4  ) 
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n ro  o n o 


100?  FUKMATOIH  SC.ATTFRING  MATRIX  DATA  NUMHFR  |A,?3H  DCESN’T  EXIST  ON 
ITAPt  I 

1003  FORMAT  ( A 7H  AZIMUTH  VAIUFS  IN  THIS  LUUIVALFNCF  CLASS  ARE  /C5F5.1M 
100*.  FORMAT  I 1X5HAVGA=F9. A, 5HVARA*  F10.4.8H  1-K/N*  F 8.  A) 

1005  FORMAT  I 8 AS  ) 

lOOfe  FORMAT!  IX  AC H SMUS  - STATISTICAL  SIGNATURE  AMBIGUITY  / 

1 IX  16H  SIGNATURE  TYPE  A5  / 

2 IX  16H  SM  TARE  NUMBER  A5,  l AH  MUUEL  NUMBER  *5  / 

3 IX  6H  S/N*  A 5 i3H  OB  / 

A IX  SH  SAN*  A 5 » 5 X6F  AVGN*  A'  / 

5 IX  ?0H  NUTSE  SUBTRACTION*  A5  / 

6 IX  ieH  ERPCP  LIMITS  ARE  / 

71X6H  E(  1 ) = F 6 « 3 » 6H  E!2l=Ffc.3.tH  E!3)=Ft.3,FH  FIAUF6.1.6H  F!5I=F6.1 
8/  1X7H  ACUT 1 = F6.1.7H  ACUT2*  FF.1.7H  ACUT3*  F6.1.7H  ACUTA*  Fft.l  / 

9 1 X BH  I S M V AR * 12  ) 

10CB  FORMAT!! 31 
100^  FORMAT!  1 X I A T 
101C  FOR  MA  T ( 6 F 10 . 3 ) 

1011  FORMAT!  28H  NORMALIZED  AMBIGUITY  VECTOR  / (5F10.AI) 

GO  TO  20 

55 C MR  I TE I 6 » 10  1 2 I LCC 

1012  FORMAT!  32H  ENC  LF  FILE  ERROR  AT  STATEMENT  IA  I 

1C1 3 FURMAT  I IX,  8HAVGSI?  *,F6.A,10H  AVGDIA  *,F6.A,  7H  NUM  =,IAI 
GO  TO  20 
END 

SUBROUTINE  S AN SUe< NUM , A VGN  ,*» 

SUBROUTINE  FOR  SYNTHESIZING  ADDITIVE  NOISE 
COMMON 

^/AAl/SMAT(37nr,6>  Ml(t),  ACUT1  , A f.  U T 2 , 

2 ACUT3,  ACUTA 

DC  50  1=1, NUM 
DO  50  J* 2 , A 

E I J = 1 J . *AL  CG1C ( 1 • ♦ 1 C . ♦* ! ( AVGN  - S« A T I I , J I I / 1 0 . I » 

SMAT!  I • J I * SMAT!  I , J I 4E  I J 
5C  CONTINUF 
RFTURN  1 
FND 

SUHROUTINF  NSSSUBINUM,  AVON,*) 

NOISE  SLETRACT  ION  SUBROUTINE 
COMMON 

^ 1/AA1/SMAT! 3 70C  ,fc  I Ml(f),  ACUT1,  ACUT?, 

2 ACUT3,  iCUTA 

DC  5C  1*1, MM 
00  50  J = ? , A 

IF  (SMATCI.JI  - AVON  ,GT,  C.CA33  I GO  TO  AC 
SMAT!  I ,J I = AVGN  - ?0.C 
GU  TO  50 

Aw  SM.AKI.JI  = AVGN  ♦ 1C.*  A LOG  1C  I 1C.  •♦IISMATII.J)  - A VGN  I * . 1 I- 1 . I 
5C  CONTINUF 
RETURN  ] 


FND 
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H65  - Sample  Problem 


1.  Description 

Three  sample  problems  are  included.  Each  of  these  problems 
utilizes  a reduced  signature  set  in  order  to  minimize  the  time 
required  to  check  out  the  program.  This  time  may  be  further 
shortened  by  increasing  the  values  of  ACUT2  and/or  ISMVAR. 

Problem  1 uses  the  first  file  on  the  library  tape  and  does 
not  use  either  subroutine. 

Problem  2 uses  the  first  file  on  the  library  tape  and 
incorporates  the  Noise  Subtraction  Subroutine.  The  value  of 
-15.0  dBsm  for  average  noise  is  artificial  and  is  chosen  so 
that  the  effect  of  noise  subtraction  on  ambiguity  will  be 
obvious . 

Problem  3 uses  the  second  file  on  the  library  tape  and  the 
Synthesize  Additive  Noise  Subroutine.  The  value  of  average 
noise  is  again  chosen  so  that  the  effect  of  noise  on  ambiguity 
will  be  easily  detected. 

2.  Sample  Problem  Deck  Listing 

The  following  is  a listing  of  the  enclosed  sample  problem 
deck.  See  Enclosure  (E)  for  an  explanation  of  each  term  of 
this  listing. 

3.  Sample  Problem  Output 

The  following  is  a listing  of  the  output  of  procedure  H65 
for  the  three  sample  problems.  The  time  required  to  run  these 
three  problems  in  sequence  on  the  IBM  7090  using  a binary  source 
deck  is  0.72  minutes. 

4.  Sample  Problem  Deck 


(the  reverse  of  this  page  is  blank) 
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Enclosure  (C) 

2.  Sample  Problem  Deck  Listing 


SM  64D1 1 a 


1? 


NO 


NO  -65 


6 

5 

6 
7 

9 

1 

2 

3 

4 

5 

6 
7 

e 


l. 

1 .01 
180.0 
0. 

20. 

s*  6<-m: 


5 

f 

7 


1. 

1.01 
180.0 
0. 

70. 

S*  64011 

1. 

1.01 
180.0 
0. 

20. 


-65. 

1. 

1.01 

160.0 


72 

-15. 

1 . 

1.01 

1 60.0 


-15. 

1. 

1.01 

160.3 


1. 

1.01 

160.0 


52  YES 


1. 

10.01 

160.0 


NO  YES  -15 

» . 

1.01 

16C.C 


1. 

10.01 

16C.0 


NO  -15 


1.01 

160.0 


10.01 

160.0 


1 . 

10.01 

2.0 


1. 

10.01 

2.0 


l. 

10.01 

2.0 


1 

0 


1 

2 


2 

i 
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Enclosure  (C) 

3.  Sample  Problem  Output 


9 175529  C 

3527230 

GRI1VER 

G 

J4117 

0325 

H65 

250079 

90  UNIT 

90 

PU 

OR 

A1 

A2 

A3 

A4 

A5 

At 

FUNCTION 

CRD 

PCH 

PR  T 

LBl 

INI 

3U1 

PP1 

CK1 

L'J2 

SYMBOLIC 
40  LOGICAL 

32 

33 

34 

00 

Cl 

02 

C3 

04 

35 

4C  UNIT 

DISK 

D 1 S< 

01  SK 

DISK 

DISK 

DISK 

01  SK 

DISK 

DISK 

9C  UNIT 
FUNCTION 

B8 

B9 

tp 

Cl 

C 2 

C 3 

C 4 

C5 

Cfe 

SYMBOLIC 
<.0  LOGICAL 

17 

18 

19 

2Z 

21 

22 

22 

24 

25 

4C  UNIT 

DISK 

□ ISK 

DI  SK 

DISK 

01  SK 

DI  SK 

disk 

DISK 

DISK 

9 1755?9  C 

SSETUP 

09 

pa 

9 1755?0  r 4EXE0UTE  IBJOfl 

9 175552  r EXECUTION 
9 17*fc!l  C THI  S JOB  IS  COMPLETE. 


9 1 7 e *•  1 ! r 14?  LINfcS  OUTPUT. 

9 instil  c ubsys 

9 1??? 1 1 : iSTQP 


C 5 2 7 9 > <: 


A 7 

u b 

A 9 

a: 
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7090  PROCEDURE  H&5 
PROBLEM  062079-C01 
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SIGNATURE  TYPE  SM 
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Enclosure  (D) 

H65  LIBRARY  DATA 


1.  DESCRIPTION 

Library  data  for  procedure  H65  are  described  in  Section  II  of 
enclosure  (4).  The  library  tapes  for  procedure  H65  are  produced  from 
raw  data  by  procedure  H31.  The  library  tape  is  written  in  binary  mode, 

7 -track  at  a density  of  800  BPI. 

The  following  format  is  used: 

LIBRARY  TAPE  FORMATS 
FILE  1 (SCATTERING  MATRIX  1) 


RECORD  NO.  CONTENTS 

1 STANDARD  HEADER  RECORD 

2 NO  (SCATTERING  MATRIX  ID) 

3 SMI,  SM2,  SM3,  SM5,  SM4,  SM6 

4 SMI,  SM2,  SM3,  SM5,  SM4,  SM6 
• • 

: SMI,  SM2,  SM3,  SM5,  SM4,  SM6 

STANDARD  TRAILER  RECORD 
END  OF  FILE 


FILE  K ( SCATTERING  MATRIX  K) 


RECORD  NO. 


CONTENTS 


1 STANDARD  HEADER  RECORD 

2 NO  (SCATTERING  MATRIX  ID) 

3 SMI,  SM2,  SM3,  SM5,  SM4,  SM6 

4 


SMI,  SM2,  SM3,  SM5,  SM4,  SM6 
STANDARD  TRAILER  RECORD 
END  OF  FILE 


LAST  FILE 


RECORD  NO. 
1 


CONTENTS 

STANDARD  TRAILER  RECORD  FOR  LAST  FILE 
ON  TAPE. 

END  OF  FILE 

201 


a 


r 


Here  SMI  represents  azimuth  angle,  SM2 , SM3,  and  SM5  represent 
cross  section  in  dbsm,  while  SM4  and  SM6  represent  phase. 

The  phase  terms  represent  relative  phase  where  SM4-=0  ^2"  $11 
and  SM6=022  “ $11* 
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Enclosure  (E)  HGv -Customer  U£xl:-zat_on 

INSTRUCTIONS  TO  CUSTOMER 
IBM  7090  PROCEDURE  H65 

I.  PROCEDURE  PURPOSE 

The  primary  function  of  this  procedure  is  the 
computation  of  a normalized  ambiguity  vector  which 
serves  as  a measure  of  the  ambiguity  or  uncertainty 
of  different  types  of  signature  representations 
of  a scattering  vehicle. 

II.  INPUT  DATA 

A.  Library  Data 

Library  tapes  are  identified  by  a label  of 
the  form  XXXXXXDNN  where  XXXXXX  is  the  job 
number  under  which  the  tape  is  produced,  D is 
an  alphabetic  character,  and  NN  is  a sequence 
number. 
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Only  one  library  tape  may  be  input  per  job  and  it 
must  be  listed  on  the  job  sheet  under  Library  Input. 
Library  tapes  for  this  procedure  are  produced  by  7090 
procedure  H31. 

B.  Problem  Data 

1.  Identification  Format 
Columns 

63-68  Job  number  (assigned  by  the  Digital 

Computing  Lab) . 


69 

70-72 

73-77 

78-80 


"pH 

Deck  number 

Card  sequence  number 

”H65" 


The  card  sequence  number  must  begin  with  00001 
for  each  deck  and  cards  must  be  numbered  sequenti 
ally. 

2.  Symbols  Used 

NO  Scattering  matrix  I.D.  number  on 

tape. 

ISAN  *1  Subroutine  for  synthesizing  addi- 

tive noise  on  signature  set 
*0  Subroutine  won't  be  used. 

NSS  *2  Noise  subtraction  subroutine  will 

be  used. 


=0  Subroutine  won't  be  used. 
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AVGN  Average  noise  used  in  the  Noise  Sub- 

traction and  Synthesize  Additive  Noise 
Subroutines . 

M1(J)  Determines  signature  type  to  be 

considered  where  J « 2,  3,  A,  5,  6. 

If  MI(J)  « I Column  is  considered 
If  Ml(J)  ■ 0 Column  isn't  considered 

ISMVAR  ISMVAR  = N,  N azimuth  values  will  be 
skipped  between  each  azimuth  reading. 

If  the  number  of  azimuth  recordings  for 
a given  signature  set  exceeds  2250,  then 
ISMVAR  must  be  greater  than  zero. 

ACUTl  Value  for  upper  azimuth  bound  for  first 

interval  180.0°  - 0.0°. 

AC  ITT  2 Value  for  lower  azimuth  bound  for  interval 

180.0°  - 0.0°. 

ACUT3  Value  for  upper  azimuth  bound  for  interval 

360.0°  - 180.0°. 

ACUTA  Value  for  lower  azimuth  bound  for  interva’ 

360.0°  - 180.0°. 

If  the  azimuth  values  between  360°  - 180r 
are  not  desired,  set  ACUT2  « ACUT^. 
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ACUT1  must  be  greater  than  or  equal  to 
the  first  value  on  tape  approximately 
180.0°  for  a given  scattering  matrix 
file.  The  value  of  ACUTA  must  be  greater 
than  that  of  ACUTl. 

If  azimuth  values  between  360°  - 180°  are 
desired  and  ISMVAR  is  greater  than 
zero,  then  ACUT4  must  be  at  least  ISMVAR  * 
N records  from  the  END  OF  FILE  on  the 
particular  scattering  matrix  file  being 
used. 

IOPT  -I  for  printout  of  azimuth  angles. 

■0  to  suppress  printing  of  the  azimuth 
angles . 

E1(J)  Determines  the  error  associated  with 

each  azimuth  recording  on  tape.  El (2), 

El (3),  and  El (4)  are  associated  with  the 
three  amplitude  recordings  for  W,  VH, 
and  HH  data,  El (5)  and  El(6)  are 
associated  with  the  two  phase  recordings. 

DNORMA  Normalization  factor  used  to  normalize 
the  magnitude  of  the  equivalence  class 
diameter  to  unity. 
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NNN  Signature  type  identification  data 

TN  Tape  number 

MN  Model  number 

SN  Signal  to  noise  ratio 

SAN  Identification  for  synthesizing 

additive  noise 

NS  Identification  for  noise  subtraction 

AVGN  Mean  cross  section 

Card  Formats  (H65) 

a.  First  card  of  each  deck  containing 
alphameric  information. 


Card 
Cols . 

1-5 

6-10 

11-15 

16-20 

21-25 

26-30 

31-35 

Data 

NNN 

TN 

mm 

SN 

SAN 

NS 

AVGN 

Data  from  the  first  card  of  each  deck 
is  used  as  heading  information  and 
nowhere  does  it  enter  into  the  selection 
of  desired  options  or  calculations. 


b. 


^^11 

H 

15-24 

25-34 

35-44 

m 

0 

2 

AVGN 

3 

Ml  (2) 

Ml  (3) 

Ml  (4) 

Ml  (5) 

Ml  (6) 

D 

m 

El  (2) 

El(3) 

El  (4) 

El<5) 

El(6) 

A 

3 

ACUT1 

ACUT2 

ACUT3 

ACUT4 

ISMVAR 

T 

6 

IOPT 

A 

D 

DNORMA 

8 

All  Items  will  be  zero  if  not  input,  except 


for  ACUT1,  ACUT2,  ACUT3,  and  ACUT4,  these 
variables  assume  the  values  of  180°,  0°, 
360°  and  181°,  respectively  for  the  first 
card  deck  if  not  input. 

Items  NO,  NSS,  ISAN,  and  data  type  number 
in  columns  1-2  must  be  right-adjusted  and 
written  without  a decimal  point.  All  other 
input  items  must  contain  a decimal  point 
and  may  contain  an  exponent  (power  of  ten 
by  which  the  number  is  multiplied)  in  the 
right  most  columns  of  its  field.  The 
exponent  may  be  omitted  if  the  last  column 
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III. 


of  the  field  is  blank.  When  input, 
the  exponent  is  preceded  by  its  sign  or 
the  character  E and  contains  no  decimal 
point . 

For  optimum  usage,  problems  using  the 
same  stored  scattering  matrix  may  be  run 
sequentially.  This  allows  the  customer 
to  utilize  different  sets  of  error  limits 
as  well  as  the  existing  noise  subroutines. 
Note  that  once  the  noise  subtraction  or 
synthesizing  additive  noise  subroutine 
has  been  used  the  original  scattering  matrix 
in  storage  will  be  destroyed. 

OUTPUT 

The  basic  output  of  this  program  is  a listing  of  the 
normalized  size  C(SI),  the  normalized  diameter  D(SI), 
and  the  magnitude  of  the  normalized  ambiguity  vector 
for  the  Ith  equivalencd  class  for  each  of  the  K equiva- 
lence classes.  Also,  the  sample  mean  and  sample 
variance  of  the  K ambiguity  vectors  are  output  as  is 
the  value  of  one  minus  the  normalized  number  of 
equivalence  classes  1-K/N.  The  average  size  and 
average  diameter  of  the  K equivalence  classes  are 


output . 
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Additionally  if  IOPT  - 1,  the  values  of  the  azimuth 
angles  which  are  included  in  each  equivalence  class 
are  printed. 

IV.  TIME  ESTIMATE  FOR  H65 -AMBIGUITY  PROGRAM 

A single  problem  utilizing  an  SM  signature  and 
approximately  1500  signatures  can  be  accomplished  in 
four  (4)  minutes.  The  time  required  may  be  considerably 
reduced  as  the  number  of  equivalence  classes  is  reduced 
either  by  using  a simpler  signature  type  or  larger 
error  limits.  It  is  recommended  that  the  first 
problems  of  any  set  of  problems  consist  of  the  most 
complicated  signatures  and  lowest  error  limits  followed 
by  the  simpler  signature  types  and/or  larger  error 
limits.  In  this  manner,  if  a time  estimate  is  exceeded, 
the  shorter  problems  will  be  truncated  rather  than 
the  longer  ones. 

If  ISMVAR  - 1,  the  maximum  number  of  signatures  will 
be  1800.  If  ISMVAR  - 0,  the  values  of  the  ACUT 
parameters  must  be  adjusted  to  limit  the  total  number 
of  signatures  to  less  than  2250.  A corresponding 
increase  in  time  would  be  required  in  this  case. 
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Enclosure  (F) 


H65  - Description  of  Changes  Necessary  for  Compatibility 

with  GE-625/635 


The  following  changes  will  be  necessary  in  order  to  make 
the  H65  source  deck  compatible  with  the  GE-625/635  computer. 


Item  No. 


1 


2 


3 


Change  Required 

On  card  number  H65A009  replace  the  value  of  NTA 
on  the  right  hand  side  of  the  equal  sign  with  the 
logical  file  number  on  which  the  H65  library 
tape  will  be  placed. 

Example : NTA=9 

When  H65  is  run  on  the  IBM  7090,  logical  file 
#9  is  used  for  the  library  tape. 

The  three  cards  H65A006,  H65B200,  and  H65C215 
establish  the  dimensions  of  the  arrays  necessary 
to  store  the  input  signature  set  as  an  3700X6 
array.  If  the  available  storage  is  less  than  22,200 
words  after  compiling,  the  number  3700  must  be  reduced 
accordingly.  If  22,200  words  are  available  for 
input  data  storage,  an  entire  signature  set  of  3600 
scattering  matrices  can  be  processed  during  a 
single  problem  run.  Otherwise  the  signature  set 
must  be  reduced  utilizing  the  ACUT's  and  ISMVAR 
parameters  as  discussed  in  enclosure  (E) . If,  for 
example,  storage  for  only  15,000  words  is  available, 
the  value  3700  on  cards  H65A006,  H65B200,  and  H65C21$ 
must  be  changed  to  2500,  and  the  values  of  the 
ACUT's  and  ISMVAR  used  to  prevent  overflow  of 
storage. 

Incorporate  GE-625/635  system  control  cards  as 
necessary. 
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6 July  1967 

Rome  Air  Development  Center 
Griffiss  Air  Force  Base 
Rome,  New  York  13440 


With  reference  to  our  conversation  on  July  5,  1967,  I an  enclosing  a 
simple  computer  program  listing  which  I believe  will  enable  you  to Venerate 

PC  WhiCh  ^,U.be  comPatible  with  the  GE635  computer.  8 The 
pu  to  this  program  will  include  both  cards  and  the  standard  SMUS  library 
tapes  produced  by  Procedure  H31  on  the  IBM  computer  at  GD/FW.  The  7 
purpose  of  this  program  will  be  to  eliminate  the  IBM  system  control  word* 
(represented  by  the  variable  NCONT)  from  the  library  tape  and  to  provide 
a listing  of  the  library  data  with  pertinent  identification  data. 

The  variables  used  in  this  program  are  identified  as  follows: 


N FILES 

NMOD 

NFREQ 

ANGLE 

N 

NO 

SMAT(l) 

SMAT(2) 

SMAT(3) 

SMAT(4) 

SMAT(5) 

SMAT(6) 

NCONT 

NTA 

NTB 


The  number  of  files  to  be  reproduced 
Model  Identification 
Frequency  in  MHz 


mstatic  Angle  in  Degrees 
Number  of  Azimuth  Measurements 
Tape  file  corresponding  to  NMOD 
Azimuth  Angle  in  Degrees 
(TV, RV)  Cross  Section  in  dBsm 
(TV,  RH)  Cross  Section  in  dBsm 
Differential  PHASE  ( ^ 

(TH,  RH)  Cross  Section  in  dBsm 
Differential  PHASE  ( ^ hH  " ^VV< 
IBM  system  control  word 
Designates  input  file 
Designates  output  file 


. order  to  run  this  program  on  the  GE635  computer,  it  should  only 

be  necessary  to  incorporate  the  GE  system  control  cards  and  designate  7 

Tdentificrtio  a°K  NTf^8  ?e8fred*  You  mi«ht  also  like  to  includ*  a tape 
identification  number  at  the  beginning  of  the  output  listing.  P 
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Note,  that  I have  used  input  file  5 and  output  file  6 for  card  input  and 
listed  output,  respectively.  You  may  desire  to  change  these  numbers  to 
conform  to  the  GE  system. 

The  table  below  indicates  the  required  format  for  the  card  inputs. 


Card  Columns 

1 - 6 

7-12 

13  - 18 

Input  Card  # 1 

NFILES  = 3 

Input  Card  #2 

NMOD=3 

NFREQ 

ANGLE 

Input  Card  #3 

N 

3000 

0 

Items  NFILE  and  N must  be  right-adjusted  and  written  without  a 
decimal  point. 

This  program  should  facilitate  the  direct  conversion  from  all  the  IBM 
formatted  tapes  produced  by  Procedure  H31.  The  simplest  manner  of  pro- 
viding these  data  appear  to  be  for  us  to  send  you  the  pertinent  H31  tapes  so 
that  you  can  duplicate  them  and  then  return  the  originals  to  us.  Any  attempt 
to  remove  the  effects  of  the  control  words  directly  in  the  SMUS  computer 
programs  would  necessitate  extensive  changes  in  each  program. 

I hope  this  approach  meets  with  your  approval  and  is  successful. 
Please  contact  me  if  additional  information  is  desired. 


Sincerely, 

GENERAL  DYNAMICS 
Fort  Worth  Division 


G.  W.  Gruver 


P.S.  Nj  = 2853  [180°] 
N2  = 2836  [180°] 
N3  = 2732  [180.4] 
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Enclosure  (1) 


10  DIMENSION  SMAT  (6) 

NTA  = 09 
NTB  = 10 

READ  (5,  1000)  NFILES 
DO  200  K=l,  NFILES 

READ  (5,  1001)  NMOD,  NFREQ,  ANGLE 
READ  (NTA)  NCONT,  (SMAT  (J),  J=l,6) 

WRITE  (NTB)  (SMAT  (J),  J=l,6) 

READ  (NTA)  NCONT,  NO 
WRITE  (NTB)  NO 
READ  (5,  1000)  N 

1000  FORMAT  (12) 

1001  FORMAT  (3Ao) 

1005  FORMAT  (14) 

WRITE  (6,  1010)  NMOD,  NFREQ,  ANGLE 
WRITE  (6,  1015)  N,  NO 

1010  FORMAT  ( lX37HSCATTERlNGbMATRIXbDATAbIDENTIFICATION/  / 
llX13HMCDELbNUMBERbA6,  12HFREQUENCYb-bA6,  3HMHZ, 

2 1 7HB  IS T ATICbANGLEb=bA6 , 7HDEGREES ) 

1020  FORMAT  ( lX39HNUMBERbOFbAZIMUTHbMEASUREMENTSb 

lEQUALSbbI4,  lX33HFORbSCATTERINGbMATRIXbDATAbFILEbbI4) 
M=N  + 1 

50  DO  100  1=1,  M 

READ  (NTA)  NCONT,  (SMAT  (J),  J=l,6) 

WRITE  (NTB)  (SMAT  (J),  J=l,6) 

WRITE  (6,  1030)  SMAT(l),  SMAT(2),  SMAT(3),  SMAT(5), 

1SMAT(4),  SMAT(6) 

1030  FORMAT  (6(5X,  F6.  1)) 

100  CONTINUE 

END  FILE  NTB 
200  CONTINUE 

END  FILE  NTB 

STOP 

END 


NOTE:  b indicates  blank 
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In  developing  the  SPECT  and  DISGRM  computer  programs  , three  programs 
were  used.  These  are  SPECT,  CLASS  and  TRAIN.  Fortran  listings  for  these 
three  programs  follow. 


SECTION  VIII 


SPECT 
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C SPECT  AND  SPECT3  5 

CCHM0V/^L0CV1/CKSAT(  3615,  CKITH<4,36  1),iAST,IVA?RF,THOI,D.m0.rRA"G 
1,  IBS  , I A , IBSTRT  , I CTRL  , VSTD  , ITH,  CORST  , SAT  , IKO^E  , 

2 -SI6CA1  f--CK3Itl35n  , A ROTs I 

COMKOK/PLOCK2/  NS ( 36 1 ) #ISP(361, 1C)  , ISMCT  ( 36 1 , 1 0 ) , 

1IKTSTO*  1,  1 ) # IS  PCT  { 361,1  ) ,ISE(  36  1,  ID)  ,SlG(5«0) 


CCMH0R/EL0CK4/  INPN<36,3  ) ,15  ( 35  1,30)  ,5  ( 361,30)  , 

IFPKrrS-7  ,IISPNT  3)  , DR  t 30)  ,SS(  30) 

COMMON  /IUVUT7  I N 0 A T ( 3 GO) » I E C F 
C 

c 

DIMENSION  THlDES  ( 361 ) , IDATA(SUO)  , 

1 IFSKP(2  ) , H E A 0 R ( 5 ) , TRAlLR(5)  / 

2 , 

3 THDrS(4,9)  , THETE  (4,9)  , SlGREF(4) 

4,  3?SaTT(4)  , T H I S S { 3 0 ) , 

5 MVQITH(P),  VOIDL(S),  V0IDH(5) 

DIKENSION  tcKSAT(36  ),  CCKO>’E(36l) 

DIMENSION  IPOS( 351  ) , V3TDP( 361 ) , 3 R S P ( 3 6 1 ) 
dTRe^StoS  xTHe™^)  ; If*  ( 2 ) 

DIMENSION  HEaD(5),TRaIL(8) 

DIKENSToN  rolloff),  ?0llr(3) 

DIKEKSIOK  baSE(4),  REFKIS(3C),  XaR(2),  Ya*(2) 

5 CONTINUE 

READ  (5,1  01  TGTID  , I”N  * ?REQ  , KBOI  • NbRTGT 
1'0r?'  F5RMaT(  12a4,  3X,  12,  ?5.  , UX|H,  IX,  12  ) 

WRITE  (6,2  6 T TGTID,  I'JN,  FREQ,  NiOL,  NbRTGT 
206C  FORMAT  ( 9H  TARGeI  »,1?A4,//9h  I>'K  «,l3./9H  FReQ  *,F6.2, 

1 /g  J NPOL  «,  T 3 . /9H  NbRTGT  «,I4  ) 

IT  ( N1  oL  .GT.  .AND.  NF9L  .12.  r ) GO  TO  6 
WRITE  (6,1  02T 

10T2  FORMAT  ( 15K  NPOL  iNcORREcT  ) 

CALL  EXIT 

6 cOKTINVE 

SEaD  (S’  ' 0 ) DRa^g*  T3TmM,  THIN,;,  V3T[, 

1 C 1 C FORMAT ( 6 F ‘ 0 , ) 

WRITE  (6,2  "0)  DRaIIG,  ’’GTdiM,  TH'XNl.',  vsir 
2C7:  FORMAT  ( 3*  dB;>KG  *,F'\?.  /9H  T-"T;XM  »,F6.2,/<?H  TH  jK  c =,  F6 , 2, 

1 /qK  VSTD  «,FC,2  ) 

IF  (THtNc  .GT.  . .AN5.  THIKc  .LF.  2.0)  1-0  TO  11 

WRITE  (6,1  38T 

1C38  FORMAT  (221*  THlHc  IS  NoT  c'-'RREC?  > 

CALL  EXIT 
11  COKTTW-e 

IF  ( 3-AN5  .GT.  0.4  .AMO.  D R A N .LT.  0.7  ) GO  TO  7 
WRITE  (6,1  031 

IOO3  FORMAT  ( ' 6H  DRANG  INCORRECT  ) 

CALL  EXIT 

7 COKTTN-'E 

TH7EST  * 1 ,‘THlKr 
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rEAD  ( Si  1 2I!'MFILES»  NFSKP,  NRPS,  IcNTER , 1 NOTSE , T Bl AS  1 , IBS 
1,  IIRS1  , IIRS2 

ic?:  formaT(  ' 2i5  1 

WRITE  (6,2  8 j"  NT  ILFS , N F S K P , NPPS,  Ic.vTeR,  INOISE#  IRS  .IfilA31 
1 , IIRS1  , IIRS2 

20B?  FORMaT  ( 9”  NFIlES  = ,I4  , /9H  NFSfcP  »,l3,/9H  NRPS  »,  jj  , 

1 /9V  iCNTeR  «,lS  , /gH  I^’OtSe  ■,l6,/9H  iRS  ■ , jU  , 

2 /9K  igTRS  1 a, I"-  , /9H  ITRS1  - ,l5,/9H  IIP32  « ,l5  ) 

NUrsAM  = (TGTDI«  * 30.  ) /(  2.0*dRa>'G) 

IRO  - IcNTfr  - (IRS  + !IUMSAM) 

Last  = icNTeR  ♦ njmSrM 

IF  (VFileS  .GT.  r ,K Up.  NFILE5  .IT.  30)  GO  TO  8 
WRITE  (6,1  0*5" 

i:,M  FORMAT  ( -8H  NF.tLeS  iNc^RRe^T  ) 

CALL  EvlT 

8 CONTINUE 

IF  ( I'-'OISe  ,GT,  300  .AND.  INOISe  .LT.  2C00  ) GO  TO  9 
WRITE  (6,1  05y 

1 C r'  5 FORMAT  ( T 3 V NOj;SE  LeVrI  lNcORREc’f  ) 

CALL  E*It 

9 CONTINUE 

lUN  = = 

NW-S  = 9 *VRPS 
corsTi  = floatjj-joxSt) 

CONST  - const  1 * 1 OC.O 

,\NOI?E  = 1 0,*  CO .1  ST  ♦ ,1 

BASE ( 1 > * ( CONST  1 ♦ rL^AT(i31*S1) )/100,0 

H A S E ( 2 1 =•  (CONST1  + 2 . ) / 100.0 

FA?E( 3 1 = FaSE(2) 

BaSE(4  - ?A3Ef2) 

THOLt-  - Ba"E(  1 i 

gIAS  * Bn - E ( 2 1 
LaSTI  - La-:T  ♦ 12 
IIRRS  - It.;- 
THOLLa  = TKOLD 
VRTTF  (6,2  19f  THOLO 
2C 19  FORMAT  ( 9K  THOLd  * , P3.?| 

IF(  L A T .LT.  f 9 ♦ IRO  ) ) La-^T  * NKDS*0.9 

IF ( NRPS  .CT.  .ANo. 

1 y R r S . IE,  ' ) 30  TO  10 

WRIT F (6,2  2 ) 

2C2:  IORMAT  ( ' 6K  NrFS  :NC0.3.-E(.r  ) 

CALL  EXIT 

1C  CONTINUE 

IF ( KFFKP  .Eg.  ) GO  *0  ‘ * 

REAL  (-,'02.W  tF3kP(J),J*i«»FSkV  ) 

WRITE  (6,703  ) ( iFSKPf  J),J» ',NFi:KT  ) 

2030  FORMAT  ( 2r  H PiL£3  TO  pe  SkxIPec  afE  ,/lH  , 1C(?X»Ir')  ) 

GO  TO  1? 

14  IFSKP  it)* 
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15  CONTINUE 
C 

C 

~dKXS5~  s 
IFXLE  « 1 
ISKF  » 1 

ID  * NB»Tf'T*1  0 ♦ 1 

II»S  S 1 
KKISS  = 

SPITE  Tr;p8^ TgTID  TmC"#»P0t  ,NBRTGT  ,XD 

WRJTeU3,8B1„)  TgTID  .FReG  ,NPOL  ,NBRTGT  ,XD 
8810  rCRf<AT(  17AU,P7. 2,i5#i6,  7H  F ,l6) 

C*****  *****  *****  V**** 

DO  7 K IP=  1 , ypOL 
C 

BEAD  ( 5 / 1 C 3 0 T POLID,  NVOID 
1 C 30  FORK AT  ( 2A4,2.X,I4) 

IT  (NVOID  ,l¥.  5)  GO  TO  16 

CALL  EXIT 

16  IF  (FVOIl)  , EQ . n)  GO  TO  19 

READ_(_5,J  35T  { VOIDL{I).VOIdH(I),  I ■ ItVfOZfi) 

1035  FCRMATl  '*0F6.  )"' 

19  CONTINUE 

BEAD  ‘5*1  4 T NRTP0L»TDLFC3 
U’UO  FCR!-aT  ( -X,X  #2x.:3  5 

IABFOS  =IabS?IDLPOS1 

IF ( N aTPOL  ,GT.  ) GO  TO  20 

WRITE  (6,204.1 

2040  FORMAT  (30h  NO.  or  ATTeKUATiONS/PC'LARIZATiON  = : ) 
call  FXIT 
c 

20  READ  (5,1*50}  ( S XSATT  ( J ) , JJSUB  ( J ) , 3IGR2F  ( J ) , J*1,NATPGl) 

1250  FORMAT  ( MF5.  , lX,X1,F5.  ) ) 

C 

C 

DO  25  J=  1 , NATPOL 

IF ( NSUB(J)  .GT.  0 ) 20  TO  25 

WRITE  (6,2045) 

2-45  FORMAT  (1'H  BSMB  lNcORRECT  ) 

CALL  EXIT 
25  CONTINUE 
C 

DO  30  I^I.NAtFOL 
L * N S U B ( 7 ) 

READ  (5,  01. )(  rHETS(I,J),  THETE(I,J),  J«1,l  ) 

30  CONTINUE 

WRITE  (6,205  ) POLID 

2:  50  FORMAT  CrH  INPUT  qAT.»  PeRTININT  TO  ,3A4,14H  FoLARIZaTI  >N  ) 
WRITE  (6, 2051)  NATPOL 

2061  FORMAT  (LrH  NUMBER  OF  ATTENUATION.5  *,  15  ) 

WRITE  ( 6,  2052)  ( S*S  ATT  ( J ) , NSUB  ( *2  ) , SlGREF  ( J ) , J=1,  NATPOL) 

2-52  FORMAT  (4  h SYSTEM  NUMBER  OF  F EFEREvcE  , 
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V 4 H A T T E 'I  'J  A 1 1 'i  ^ aUElNTEHVALS  X SECTION’ 

27  ( IX, ?5.  1,  'OX, I , 1 X,)6.2) 


3) 

WHITE  (6,2053) 

2^53  FORMAT  < 3 ' H CONTROL  DATA  ¥ Ob  ASPECT  MFRGIVG , . . , 

•/  *♦  H aTTe*IUaTIO»  INTERVAL  3T>RT  STOP 

2/  4 H LEVEL  angle  ANGIE 

D°  L Ix ‘ , NATFOL 
L = Nsup(T) 

DO  4 J * i » L 

IF  ( J ,GT.  I ) GO  TO  ?5 
WRITE  ( 6,2054)  I,J,THfTS(I, 

2 C 5 4 F0RMAT(  6x,i1,  10x,l1#’’X,F6.  1,4X,F:.  1 ) 

GO  TO  4 

35  WRITE  ( 6,2055)  J , T H e T S ( I , J ) # T h E T E ( I # J ) 

2C5  5 FORMAT ( 1 7 X , 1 1 , 7X , F6  . 1 , 4X  , Fr  . 1 ) 

40  CONTINUE 


« 


) 


TINY  - TH'-'TS  ( 1,1) 

BIG  - THrTE|  ',NSUB(  1)  ) 

IF  ( N’;.TFOI  ,eQ»  ’ ) "O  TO  33 
DO  32  I A = 2 ,NATPOL 

IF ( TWETSflA**)  .LT,  TINY  ) TTNY  = THETS ( lA f 1 ) 

32  IF ( TKeTe(Ia*NSUt(Ia) ) ,GT.  rIG  ) BIG  = THfiTE ( lA» NSUb ( I A >> 

33  CONTI'.'UE 


J = 1 

THDES(I)  Tits' Y 
2:0  J * J ♦ 1 

TFDES(J)  = THt'ES  ( J-1 ) ♦ TKIKC 
IF  ( 'I’HDES  ( J|  .LT.  BIO)  GO  TO  20. 
NCTH  - J 


C 

DO  2u=  J-1,NiT-( 

DO  2 r TA=1fNATP0L 
2:5  CXITH  ( IA  # •’ ) = . 

DC  21  J=  ' ,NDTH 

CKSaT-J)  - . 

CKONE  1 J ) - . 

IFOS(J)  = IRS 
N S ( C ) = I 

210  NFN(J)  * 

DO  21 ' JK  = ,NDtH 

VSTHWjkT  * ,. 

IRSF  ijX7  3 

211  CONTINUE 
JTHSP''  = 

IF ( THoES(I)  .EQ,  rrfE~3(  ’ . 1 ) ) GO  TO  20? 
J 3 

2C1  J = J + 1 

IF ( THDES(J)  .EQ.  THETS(I,1)  ) GO  TO  202 
CKITH 1 1 , J ) * 1, 
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TZ2 

203 

20  4 

~ 2C  6 


2C7 


i:o 

121 


215 


220 


C 


225 

230 

C 

240 


243 


CKONE(J)  - 1, 
CKSAT(J)  *-l| 
TO  2 ' 1 


GO 
JTH5*T 


iT^  r- 


CONTINUE 

IT(  TKdES(MdTH)  . E3»  thete(  1.KSUE(  D ) ) GO 
J s 

J * J ♦ 1 

IF ( TKDFS(J)  .LT.  THETE(  1,NSUB(  1 ) ) ) GO  TO 
j~s  j + r 

CKITH(1,J)  * 1, 

CKSATtji  = -1. 

CKONEfJ)  = 1. 

IF ( J .LT.  NOTH  ) SO  TO  2 $ 

CONTINUE 
HCBVd  = 


TO  2 7 
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IF ( NVOID  .EQ.  7 ) 50  TO  121 

do  i * i=-;nvoid 

NUMVd  = FLOAT(NUUVD)  * ( V0IDH(I)-V0IDL(I)  )/THlNc 

N ASF  =-  KdTH  * NUnVo 

IF ( W^Uf(  •)  .EO.  1 I GO  TC  240 


L = 0 

NSUB1  = NSUBf  ‘ ) 

DC  23  J = 2,  NSUbI 

TEST  - TH2TeT  '» J-1 ) 

L = L + 1 

IF  ( AhS(  ?ESi  - THE  S3 '( L ) ) ,Gl.  0.1  ) GO  TO  2’5 

JJ1  * L + 1 

TEST  - THFTSf  ",  J ) 

L a L + : 

IF ( A F S ( TEST  - THDESfL)  ) ,GT.  0.1  ) GO  TO  2?0 
JJ2  = L - 1 


DO  22-  II*JJ  \, JJ2 
CKITHi  |, IT)  « 1. 
CKOKE  * 1 1 T =•  1. 
CKSATi  II  ) =-1. 
CONTINUE 


CONTINUE 

DC  24'  II  * 1,KDT1I 

CCKOH?(II)  = cKOXSdl) 

C C K S A '"  { III  = CKSAT(II) 

CONT I"UE 

IA  = 1 

ICTFL  = 1 

IOFT  - ' 

I«ISS  = 

I NT  = 1 
NK  = 

ITH  = JTH3RT 


.6 
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iir<  !!“!{.  ! « to  s.i 

GO  TO  242  

TiT lilti  (6,'V  ) 

1 Be  0 FGRMAT  (3:m  A STARTING  ANGLE  OBeATeB  THAR  340  peSR|ES  TOR  IA-1  and 
1 IKT* 1 CA»»OT  be  ACCOMODATED  ) 

call  exit 
242  CONTINUE 


CJLl-k  riGEKR  ? IUJ1,  IEF*  ) _ 

nil  1 

245  THE IN  • THgTE ( IA f INI ) 

ISPTST  ■ 

SIGNUM  » SlGREf { Ie ) ♦ STSATT UA) 


_2_50  IF(  IrJlE  ,NE.  IrSKPdSKPJ  J GO  TO  270 
WRITE  (6,60  6) 

6bC6  FORMAT  ( 1’H  FUE  TEST  START  > 

251  CONTINUE 


CALL  LATAIN 

= IT  [mil  553,252^255  

252  IF  (IERRT  2g  ,251,26‘ 

C 

260  write  ( 6, *?o? i ) ifilb 
7601  FORMAT  (2fH  I/O  ERROR  BYPASSING  FILE  ,15) 

IE8*  * 

GO  TO  251 

C 

255  WRITE  (6,7000)  If  HE 
IEOF  - ’ 

7000  FORMAT  ( I5H  BYPASSED  FILE  , I5  ) 

265  IFILE  = IFILE  ♦ 1 

IF ( ISKP  .GE.  NFSKP  ) GO  TO  2?c 
I3K?  - ISKP  + 1 
GO  TO  25 
C 

270  CONTINUE 

WRITE  (6,00  7) 

6*07  FORMAT  (3rH  tilt  TrST  eNd  - FILE  PRCCISS  BEGIN  ) 
C 

IPASS  * 1 
ICEP.  - 
IGN  = 

275  ITH  * ITH  ♦ 1 
C 

278  15 RT  - 1 
IFD 

280  CONTINUE 

292  1ST?  - ISPT  ♦ 89 

IF ( IS'RT  . tQ.  31  ) IHD  * ' 

IF ( ISRT  .EO.  18  l ) THd  - 2 
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c 

GO  TO  ( 28  ‘ , 28  ' * 200  ) « IhD 

2ei  continue 
call  daTaih 

decode (IN V AT t ‘).  4000) (HEACR(J),  ’•  .5) 

4CC0  FORKAT<  5A-) 

JK  = •- 

DO  199  J * ISRT, ISTP,  3 
DECODE(IUrAT(JK) ,401  ) ID AT A < J ) 

u z i o fohkat(  *7T',i5i  ~ 

JK  * JK*3 

D E C 0 D E ( INDATrJlO  , 4020)  IDATa( J+ 1 ) 

4€  20  FORK  AT  ( 1 9>'t  15  ) 

OK  * JK  ♦ U 

DECODE (XSDAT l JK), 4030)  IDATA ( J + 2 ) 

E?30  «lHlTrr53r,I5J 
199  JK  * Ok  + 3 

DECODE (IMPAtf 304 ) ,404C)  II A ( IHD) , ( TR AXLR ( J ) , J- 1 , 5 ) , ITXET A ( IHD ! 
4 2 40  FCRKAT(5X,I3|4A4,  A1»I"'*2X) 

if  (iron  31  ,202,31 

202  IF  (IERRT  315.3  0, 3 1 5 

29 0 CONTINUE 
CALL  OaTaIN 

DECODE {I«DaTI * ) # 4000 ) ( HE*D ( J ) , J-  1 , 5 ) 

JK  1 - 

DO  4050  J = ISRT, 1ST?, 3 
DECCD?(lNr'ATf  JK)  ,401  ) IDATA(J) 

3K  ■ JK  ♦? 

DECODE  (INP  AT  f.^K)  ,4020)  ItATAfJ+l ) 

JK  - TX  4 4 

DECODE  flNDATMK),  4 0 30  ) II A j A(J*2) 

44k0  JK  * JK  +3 

DECODE (1ST  AT (30  4 ), 4060 )( TRAIL ( J ), J“  1 , 8 ) 

4260  rCRKAT(4x,8A4) 

IF  (IEOFT  3 U,29  1,31 

291  IF  (IERRT  31'. 3 0,31r. 

C 

3.0  IF(  I'TP  -GE.  JWOS  ) DO  TC  J20 
ISRT  * iSFT  * 

IHD  * 3 
GO  TO  2p- 


70  C 0 N T I " U F 
74  cORTI'UE 


310  WRITE  (6,-0  21  IFILE 

ifoe  ’ 

7 '2  r 0 R M A 7 (j  H OFILL  ASSriFD  AT  E !•  D 'F  FILE  ( , 1 2, 45H  ) , . . RE  FL  ACE  DtTA 

•stapt.ng  i t h Restart  angle  ) 

IF  ( ( T H r 1 X - T(03S(tTH)  ) .lc.  thi»c  ) go  t "6 
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jL 


J 


on  1 on 


iori  * 2 

IFILE  « iFlLi  ♦ 1 
GO  TO  278 

96  WRITE  (T7T5TJ  Pirns 

5340  FORMAT  ( rH  FILE  . 13  ,21H  IS  ASSUMED  COMPLETE  ) 
GO  TO  111  1 


815  CONTINUE 

60  TO  ( 1$ 1p2,  15l)  , IHD 

151  lTHETx(lHpi  - ITH8TA(IHp)  * THTeST 

152  WRITE  ( 6 , "0  3)  IFILE  ; ITHBTr(D 

7CC3  FORMAT  (3?H  gRROR  ATTgMPT jHG  TO  RjAp  *ILE  { »l2,12H  )•  AgPgCT  - # 

1 16  ) 

IERR  = 0 

CALL  EXIT 


320  CONTINUE 
IGN  ■ . 

absith  « ITHETAM)  « itheta(2)  ___  _ 

If  ( ABS( ABSITH y ,GT.  THTeST  ) so  TO  120 
1 1 9 THETA  - FLOaT(ITHETa(  ')  ) /K'.O 
GO  TO  13 

120  IF ( ITH  .eQ,  ’ ) GO  TO  lie 
T 1 * FLOaT(ITHETa( 1) )7i:. 

12  .^_Flp*TilIHETA(2ii71*.:_  . 

D1  * ABS(  THeTA  - T1  I 

02  * ABS(  THETa  - T2  i 

IF ( 01  ,LT,  d?  ) SO  TO  1 25 
THETa  ■ I? 

GO  TO  13 
125  THETa  ■ I* 

130  CONTINUE 

ISPTST  * ISPTST  ♦ 1 

IF  ( ISPTST  .NS.  2 ) GO  TO  319 

IF  ( SYSaTT(Ja)  .E3.  F10AT(IIA( 1) )/10,0  • OR . 

1 STflTTttl)  ,E3.  FL0AT(IIA(2) )/10,0  ) GO  TO  319 

WRITE  (6*60  • 5 ) STSATf(lA).  fFttl 

6615  FORMAT  (5  H*****  ATTgNUATlON  LeV£L  OF  TAPE  MAS  NOT  eJ|UAI  TO  , 
1 F 8.2,  1PH  FILE  NO,  = « 15  ) 

CALL  EXIT 
319  CONTINUE 

IF ( Ia  .GT,  1 .OR,  IP  ,GT.  * .OR.  INT  ,GT,  1 ) GO  TO  317 
IF  ( ISPTST  .GT.  1 ) GO  TO  3 1 7 

IMOLE  = 1 

IF  ( TDAlA ( 9 . ) ,LT.  ) IMOOE  = 2 

IF  (I.”ODE  . EO • 1)  VSTp  * FUNC(VSTD»CONST) 

IF  ( IMODE  .EC.  2 ) GO  TO  285 
S\T  ■ 99.98 

'IF7  THOLp  ,lT,  7.0  .OR.  THOLD  .GT,  30.0  ) GO  TO  28- 
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GO  TO  3 "7 

2?4  WHITE  (6,61  ) THOLD 

6 1 C 0 FORMAT  (4"H  ***  TAPE  IN  VOLTAGE  ....  THRESHOIl  lMPROpEg  a , f7  . 2 ) 
CALL  FXII 

285  S A T = - .2 

IF  ( THOL".  GT,  -15.  .OR.  THOLD  .LT,  -25,0)  GO  TO  206 
GO  TO  3-7 

286  WRITE  (6,615  ) THOLD 

6150  FORMA-  (42H  ***  TAPE  T N DH  ....  THRESHOLD  IMPROPER  = , F7.2) 
call' fxit 
317  CONTINUE 

GO  TO  ( 32- , 32  1 ) , IOFT 
321  IOFT  = ' 

IF  ( SYS aTT  ( t A ) .EQ,  FLOAT  ( II A ( ' ) ) / 1 0 , 0 ,0R, 
i irXSA^TCtA  ) .EQ.  FL0AT(IIA(?)  )/^0,0  ) GO  TO  }0 

WRITE  (6,6015)  srSATT(lA).  IFILE 
CALL  EXIT 
&C0  CONTINUE 

ITH  = ITH  - 1 
TEST  = THFTa 
J = 

522  J = J + 1 

IF ( AF S(  THDES(J)  - ABS(TKETA)  ) .GT.  DTH  ) GO  TO  322 
NN  = :>N  - (ITK-J)  - 1 

c 

IF  (J  . LE . ITH)  GO  TO  326 
IF  ! iJ-ITH)  . LT.  2)  GO  TO  32c 
LI  = ITH  + 1 

L2  = il  - ‘ 

DO  327  L = L1,L2 
CKOV  F ( 1,  1 = 

327  CONTINUE 
GO  TO  323 
326  CONTINUE 

DO  72?  L = JlHH 
NPN(l)  = 

CKSaTi'L)  - CCKSaT(L) 

CKO’'5'L)  = C CK°»EU) 

3 23  CONTI v UE 
2 28  CONTI-- UF 

C 

c 

ITH*  ‘ 

GC  TO  3- 
C 

324  GO  TO  (325,33  ),IPAS3 

325  I F ( T-  ETA  .GT.  30.  ) THETA  = T^E'j'A  - 360. 

IF ( TKeTa  .GE.  7.  ) 30  TO  330 

IF  ( A55(T;-eTa)  .32.  TriSc  ) GO  TO  278 

330  IF  ( Ar  S ( THdES  ( ITH ) - a3S(VHETa.)  ) -PE.  LTH  ) GO  TO  34 
IF  ( ’•'HE T>  .LT,  THUES(ITH)  ) t."  TO  335 

WRITE  ( 6 , ” U . . ) THDES ( ITH ) 
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7(110  rOlMAT  ( 1UH  ASPECT  ANGLE  ,F6.1,  9H  MISSING  ) 
imiss  » imiss  ♦ i 

JKISS  ■ J'.’.ISS  ♦ 1 

TKMISS(  JMISS?  = THMSTITH) 

ir(  imiss  ,lt.  5 ) so  to  33 1 

WRITE  (6,70.11) 

7(11  FCRMAT  ( 3?h  TOO  MANT  ASPEgT  ANGLE*  MlSSlNG  ) 

call  fxit 
331  CONTIYUE 

I r ( TKDES(ITH)  .GE,  THFIN  ) oo  TO  400 
ITH  * ITH  + 1 
GO  TO  33 
C 

335  ir  ( IPAS3  ,EQ,  2 ) GO  TO  278 

GO  TO  35 
340  IPaSS  = 2 

CKITH(iA,ITHT  = 1, 

NN  * NN  ♦ 1 
C 

WpITE  (6,7020)  N I , ITH  , ( HEAD*  ( J ) , J-  1 , 5 ) , IIA  ( 1),  ( TrMLr  { J 5 , J®  1 , 4 

TRAILR(5),  IXHETA(I) 

7t'20  F 0 R K a T ( "H  SV-EP(»l3.  gH)«  THoeS  i # l3, 3H  ) , 5 A 4 , 3X  , 1 3 , 4 A 4 , A 1 J 
350  CONTINUE 

IMISS  = 

GC  TO  (27p.35r), IPASS 
C 

355  IF ( I>  ,EQ,  1 ) GO  TO  365 

IF ( CYSAT(ITH)  ) 365,356,370 

356  L = I A " ' 

ISUF  - C 

DO  36  JJ=  1 , L 

360  ISUF  = FLOaT?ISUM)  ♦ CKITK< JJ,ITH)  + 0,6 
IF ( I SUM  -Efl.  L ) GO  TO  365 
CKSAT(iTH)  = 

CKONE(lTH)  = 1. 

C 

365  CONTINUE 

DO  36'  IJ  = ' , L AST  1 

366  S T G ( I ,‘ ) = PLOaT(IDaTa(IJ)  )/ 'OO." 

C 

c 

374  CCNTI'-UF 

CALL  SU5TRS  f SlG  , TRS3  , YSTot>  » IIRS1,  IIRS?  ) 

IF  { VSTDD  .GT,  3iAS  ) GO  Tv  37 2 

373  cONTI"UE 

CAlt  'UBlfS  T SIG,  IR^S,  VS1DO*  II*S0»  IIP51  ) 


IF 

(V'TDD  .GT. 

bias  ) 

GO  TO  3 r 2 

GC 

TO  383 

372  IF 

(Hole  .eq. 

1 ) 

VSTDL  * ri’NC(  VSTLD,  CONST  > 

IF  (NY  ,Efi,  1)  GO  Tc  381 

IF  ( { VsTD-VSTDD)  ,GT.  3,  ) GO  T 373 

GC  TO  38 1 
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382  IF  (I'-'.ODE  ,EO.  1)  V3TDD  * FUN’C  ( VSTDC  , CON'ST  ) 

IF  CNN’  ,F C;.  1)  GO  TO  383 

IF  ( (•■STD-VSTPD)  ,G T.  3.  ) GO  TO  383 

381  CCHTirut 

VSTS  - VSTDD 
IF  S = IRSS 
GO  TO  3g  y 

383  CONTINUE 

khiss  = Kriss  ♦ i 
SFFMI.S(KMTSSl  - THDES  flTM  ) 

38U  CONTINUE 

VSTDPdTHi  = VSTD 
IRSF  ( ITH ) * IBS 
IVaHBF  = 

SIGcAl  = F I G N 0 M - VSTn 

IF  (It  .EO.  1)  30  TO  367 

IOLTST  =IABSriP03(ITH)-IBs)  - IABFOS 

IF  (ILLTST  ,LE.  IaBPOS)  GO  TO  3?  9 

IBSTfiT  = ’BS  ♦ IRO  - IDLPOS 

I V ft R R F * TdLPOS 

GOTO  3?8 

3 6 9 IRSTRT  = ;*IRS  + IRO  - IPCS(lTH) 

IVABRF  = IBS  - IPOS ( ITH  ) 

GO  TO  368 
367  CONTINUE 

IPOSdTH]  = IRS 

IRSTRT  s:  jus  + IRO 

IF  (ITH.GT,  1)  30  TO  368 

IF  (I.VODE  7eO  • 1)  THOLda-  FUNc(THOI-D»CONST) 

TKDBSK  = "HOLE  a + 5 1 G C L 

36e  WRITE  (6,00  1 VsTD.  TBS,  CKSA T ( ITH  ) , CKI TH ( IA , I TH ) , CKONEflT? 

9 o : 0 FCRN.A7  (7k  VST0  =,F7.?,2*H  Ca  POSIIjOv  OF  ReF.  = . 13 , 5 X , V H c- S A T 

* *,F5-.  f.'Sr.-HcKlTH  *,F5.  •,3x.7KrK0NE  *,F5.1  ) 

IBS  = IKS  - IVaRBF 

RRWFT  =(IHSTRT  -IRS)*DRAKG 

WRITS  ( C , a 0 1)  IRSTRT.  RRVRT,  ( 3 1- ( J ) , J = IR STRT , I A S T ) 

9‘v  C 1 FORMAT  (2*H  RECORD  DATA  FROM  IrSTrT  = , 13, 

/ ?h  = .Fo.  , 2 5 h in.  referenced  to  pifou  , / , (?0F6.2)  ) 

WRITS  (£,oO  2)  IcTRL 

9 v 2 F C R A T ( 3 ' H *****  OPecT’  EnTrI  *****  IcTRL  * , l2  ) 

CALL  SPECT3 

IRS  = IRS  ♦ iVaRrF 

IF  (CK0N£(ITH1  .ZQ.  1.0)  cKONs(lTH)  ■ T,0 
WRITS  ( £ , qO  8)  'JPN(ITH),  NS(ITH) 

9r ' 8 FORMAT  (37h  *****  SPeoT3  vXjT  *****  NPK  = , 12, 5X,  ' 1HNSATT  N * =, 
‘ 12  ) 

IF  ( W v m ( 1 7 H ) .EQ.  0)  GO  VO  371 
JJ1  = N P N ( I T H ) 

WFlTS  ( 6,cO  1 .)  ( I .IPN  ( I-H.KK)  ,R  ( ITH,KK)  , S(ITH,KF)  ,KK*  JJ  ' ) 

9 10  FrR';A-(  -x,  5(  I ' *F6.  1.  Fc.  I,  X)/(  IX*  " ( I F6,  -,F5.  1,  IX)  1 ) 

371  CONTINUE 
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ir ( NF ( IIF } .IT.  1 ) CKSAT(ITH)  = 1. 

c 

570  CONTINUE 

IF  ( r DES  .ITH)  .LX.  thfin  5 OO  TO  2*?5 

c 

c 

4C0  CONTINUE 

write  ( 6,  r’o ' ■ ) 

3 v ? 0 FORMAT  { 1 3 H PiLe  PROCESS  eUd  ) 

C 

IF  ( IFJ.LF  ,EQ,  SPUES  ) GO  TO  465 

410  CONTINUE 

call  latain 
IF  ( IFOFT  41  '#414,41 
4 ’4  IF  (IFRRJ  412,4  10.412 
4 12  WRITE  (6,70yf)"  IFILE 

7.'C5  FORMAT  ( 3 4h  j/0  cRROR  REAlING  T0  eof  In  fiLe  • I5  > 

IERR  - ' 

GO  TO  410 
C 

411  CONTINUE 

WRITE  (6,~0  4)  IfILE 

7 v C 4 FORMAT  ( 1 " H COMPEeTed  FILe(»x2»'H)  ) 

WRITE  (6,30  2) 

3PC2  FORMAT  (3'H  e^D  OF  Fils  - F JLE  TeST  START  ) 

IFILE  = IFILE  ♦ 1 

420  IF(  IFILE  .NE.  IFSKP(ISKP)  ) GO  TO  450 

421  CONTINUE 
CALL  TaTaIN 

IF  (IFOFT  425,422.425 

422  IF  (IFRFT  43  ,421,43 
C 

430  WRITE  (g.'O  D IFILE 
GO  TO  421 
C 

425  WRITE  (6,7000)  IFILE 
C 

435  IFILE  = I?ILE  ♦ 1 

I F ( ISKP  -GE.  N F 5 K F ) GO  TO  450 
ISKT  • ISKP  * 1 
GC  TO  42 
450  CONTINUE 

WFITE  (6,20  4) 

30C4  FORMAT  (1"H  FlL®  TfST  eNd  ) 

C 

IF(  iVT  . r E . N S U 3 ( I A ) ) GC  TO  455 
IKT  = INT  ♦ 1 
GC  TO  46 
C 

455  CONTINUE 

WPITE  (6,31  j)  ( VST’iP(JK),  IRSP(JK),  JK  • 1,  WASP  ) 

3'1:0  FORMAT  (1'H  V?TD  JRS  , 9 ( 1 1 H VSTD  IRS  ),//,(  1?  ( F6  . 1 , j?  ) ) ) 
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DC  55:  JK  = '.NaSP 

VSTDT  f JK)  » .. 

IPSP  ( JKT  = V. 

554  CORTTYUT 

c 

IF  (IA  .Go.  KATPoL)  GO  TO  465 
1ST  = I 
IA  ■ IA  ♦ 1 
NK  = 0 

IPfH«  2 

J « 

TEST  - THETSTiA,  1 ) 

THOID  = BASElIA) 

DO  45C  KKLL  a 1.NDTH 

CCKSAT(KKIL)  * CKSAT(EKLL) 

'tClToWtKTCLL)  ~ CKOSlTKKLL)'^ 

459  continue 

WFlTE  (6,:01j)  THOLD 
5010  POBKAT  ( aH  THOLo  o ,f6,2  ) 

GO  TO  461 

460  TEST  = THETSflA, 1ST) 

" “ T i”lTH 

46 1 J a j * I 

IF  ( AES  ( TEST  - THDES  / J ) ) .81.  0.1  ) GO  TO  461 
ITH  = J - 1 
GO  TO  245 
C 

' 1*65  CONTINUE 

IP  (IFILE  . NE . NFILES)  GO  TO  467 

WRITE  (6,21  v.)  ( VSTDP(JK),  IBSP(JK}»  JK  ■ 1,  HASP  ) 

467  cONTIMJE 

THOLD  = BA  SEf  1 ) 

WFITE  ( 6 , ?0  6) 

35^6  FORMAT  (T5h  e^D  OP  PltE  ) 

C 

IF  ( J I S S , LQ.  0)  GO  TC  464 

WPITE(6,7'0  ) (THMISS(J),  J=1,JMISS) 

76^0  FORMAT  (///31H  ****************************** 

1 /31H  ****************************** 

_2/4iP  The  following  AFFECT  aKGIFS  were  missing  //,  (Fio.1)* 

3 //31U  ****************************** 

4 3IH  ******************************  //  ) 

464  CONTI'UE 

IF  (I?  .NK.  1)  GO  TO  466 
ID  - ID  + 1 

WRITE  (6,3flH)  LAST,  fHDBSfl,  ISO,  THINC,  DRANG,  IIRR5,  ID 
WFITEU?,P8  11)  LAST, THDBSM, IRC, THINC, DRANG, IIRP.S,  ID 
8911  FORMAT  ( I ' , F 1 . 1 , 1 1 0, F 1 * . , F 1 0 . 2, 16, 1 UX , 7«  P ,16) 

C 

466  ID  * ID  ♦ 1 

WRITE  ( 6 , o 8 ' 2 i PCLTD,  NASp,  THDES ( 1 ) , THDES(NniH),  NVOID,  ID 
WSjTEfS^.PB  '2)  P^LID*  N*SP,  THd*S(17,  THDES(NrTH),  NVOlD*  ID 
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8812 

FORMAT  (3*4.1$,  2F7.1.  I4,3CX«  7H 

ir  (NVOID  ,E8.  0)  GO  TO  491 

ID  * Id  * 1 

t *16  ) 

GO  TO  (492.493,494 

.495,496) 

. NVOID 

492 

WRITE  f 6 , •'S  „•)  ( 

VOIDL(I), 

VOIDH(I),  1 

■ 

1, NVOID), 

ID 

WPlT£( 43,75  _ ) ( 

V 0 I^L ( I) , 

V0iDH(i),  i 

m 

1,HV0ID) , 

ID 

75?0 

FORMAT  ( 2F6.1  , 

5UX  , 7H 

P #16) 

GO  TO  4 9 1 

<*93 

WRITE  (6,751.)  { 

VOlfiLdl, 

VOIdH(I),  I 

■ 

1,  NVOID) « 

IP  ._ 

WRITE  ( 4 3,  •'5  V.  ) ( 

VOl0L(l), 

voidH( i) . j 

■ 

V»voIDf. 

ZD 

7510 

FORMAT  ( 4F6.1  , 

42X  , 7H 

p #16) 

GO  TO  4 9 1 

U 9 4 

WRITE  (6,752.)  ( 

V 0 1 p L ( I ) , 

VOIDH(I),  I 

■ 

1, NVOID), 

ZD 

WRiTe(43,752. ) ( 

VOlftL(l), 

VOIdH ( I ) , I 

a 

1 » NVOip ) , 

ZD 

7320 

FORMAT  ( 6F6.1  , 

3 OX  ,_  7H 

P *16) 

GO  TO  49 1 

4g5 

WRITE  (6,^53.)  ( 

VOIrMI). 

VOIDH(I),  I 

a 

1, NVOID) * 

ZD 

WRjTe ( 4 3 , 753  v ) ( 

VOIdL(i). 

VOidH(I),  I 

a 

i#nvoid)» 

ZD 

7530 

FORMAT  ( 8F6.1  , 

1 8 X , 7h 

p *1$) 

GO  TO  4 9 1 

4 56 

WRITE  (6,-5u.)  ( 

v_piDl(i ) f 

VOlpH(I),  I 

9 

1 , N VOlp ) , 

ZD 

WRiTE( 43,754. ) ( 

VOlpLtl), 

VOiDH(i),  I 

a 

"1*“*vbiD), 

ID 

7SU0 

FORMAT  ( '0F6.1  , 

6X  , 7H 

p # 1 6 ) 

c 

09  1 CONTINUE 

c 

RMAX  •_  -1CQQ. 

FXIN  * +1  0 . 

ISET  = 1 
ITH  * 

500  ITH  = ITH  ♦ 1 
ECL  = 

ID  = ID  * 1 __ 

ir  ( cksatTxxh)  .it;  ) go  to  sio 

IF  (NVOID  »E0.  n)  GO  TO  506 

DO  5 5 J = I.NVOIp 

IF  (TFdES(ITH)  ,GT.  VOIDL(J)  .ANp.  THdES(ITH)  .IT,  VOIDH(J)  ) 
1 GO  TO  8 9 

5 C 5 CONTINUE 

506  CONTINUE 

WRITE  ( 6 * ? 8 i 3 ) THOES(ITH)  .1?  #1D 
WFiTe'03, "8  : 3 ) THDeS(tTH)  .jP  #ID 
8813  FORMAT  ( F ’ 0 . 1 , 9x , 1 H 0 , 20X , j 1 0 . 16 X,  7H  P,  16) 

GO  TO  81 

C _ .... 

809  ID  = ID  - 1 
GO  TO  S'1 
C 

510  IF  ( F P N ( I T H T ,GT,  11  GC  10  520 
IF  (NTN(ITH)  .BO,  C)  GO  TO  527 

IF _J  INPIJj  ITH*  1 ) ,F Q.  1)  GO  TO  577 

NEND  - KPM(ItW) 
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«=  fflDltl(lTH) 

SS(  1 ) = sTith,  1) 

iirtt iTrtmfrr 

IINFJJi  1)  = liPUdTH,  U 
00  TO  528 
§27  CONTINUE 

WRITE  (5,9818)  ThdES(ITH)  .if  ,ID 
H8ITE(U3,8B1«)  THOES(lTH)  .If  .ID 

“T8T¥  1‘, n.TOTr20Y7 iltf.  J5X, ~ 7H T,i6) 

GO  TO  81. 

C 

520  CONTINUE 

THT  - THDESTITH) 

NEND  * WPW(XtH) 

CALL  " *EORG(  XfH  j 
DO  525  III»1|NENd 
R ( ZTH , ill ) = RR(III) 

S(ITH.III)  - SS(HI) 

INPN(ITH,IhT  ■ IINpNflll) 

IF ( ITNPN ( III ) , E0«  2_)  ECL  ■ ECL  ♦ 1_ 

325  CONTINUE 
528  CONTINUE 

WRITE  (6,9015)  THDES(ITH)  .NEND  # ECL  ,IP  .ID 
WPITE(43,9|  15  1 TKDES(lTH)  .NrHd  ,*cL  # IP  ,ID 
8815  FORMAT  (F'O,  1,9x,  1H1.li:, Flo, 3, lie,  16E,  7h  P, 16 ) 

_I7E3T  = NFND  ♦ 5 

ne  ■ 

530  K 3 * NE  ♦ 1 
ID  * ID  * 1 
ITEST  = ITEST  - 5 
IF ( ITEST  ,GT.  5 ) 00  TO  606 
GO  TO  (6  8 . 2 , 8 3,0  4,8  5),lTFST 

lei  WRITE  (6,98  1 ) t IXBflR J)  , 6 R ( J)  »SS(J)  , j*ks,ne»d)»id 

WRiTj  (4  3,38  1)(  IINPN(J)  ,RR(J>  ,5S(j)  , J»K S , NE*«F  > / ID 

88r  1 FORMAT  ( IX'.  (I1.F6, 1.F5. IX),  52.X,  7K  P ,16) 

GO  TO  81 

8C  2 WRITE  (6, *8  2>(  IlNPN(j)  ,RR(J)  ,SS(J)  , J»KS, NENd) » ID 

w*JT{Li*3»°0  2)(  IJNPN(J)  ,RR(J)  ,SS(J)  , J»KS,NE»d)#ID 

8T?2  FORMAt(  ix’,  2(li,F6”  1,F5.  ,lx),  3*X,  ‘ 7h  P ,16) 

GO  TO  8 ’ 

8 ' 3 WRITE  (C.i'S  3 ) ( 1 1 N P " f J ) , R R ( J ) ,:-S(j)  , J«KS , NENd  ) » ID 

WPlTt(43,?8  3 ) ( 11MPN ( j ) ,RH(J)  .3S(J)  , J*K  S , NeNd ) » ID 

8 8 G 3 FORMAT ( IX.  3 < 1 1 , T6 . 1 , F5 . • , 1 X ) . 2£X,  7h  P ,16) 

GO  TO  8 ’ 

0?U  WRITE  (6,p8  U)(  II  tip  N ( J ) ,i(R(J)  .^Sfj)  , J»KS,NEND).ID 

WRITE  < 43,98  4 1 ( HNPN(J)  ,1R(J)  , 3S(  j)  , J»K  S , NENd  ) » ID 

88C4  FOR MAT ( IV.  b ( 1 1 . F 6 . 1 , F 5 . '»  1 X ) * I’X,  7h  P #16) 

GO  TO  81 

8C5  WRITE  ( C , 0 8 5)(  IIWPN(J)  ,RR(J)  .i’S(J)  , J«K  S , NENp ) # ID 

WPITEU3.  98  5 ) ( IINPN(J)  ,BR(J)  , 5 S ( J ) , J»KS,  NENp  ) , ip 

■fifOS  FORMAT  ('  IX , 5 ( I i , F h . 1 , F 5 . ' , 1 X ) , 7H  P .16) 
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.... aa  xo  sj.  . 

i 06  CONTINUE 

WE  « K S 4-  J» 

wixtS  (6,88  5T(  ixhpnTT)- ,f*lTT~7s~sfJJ  , 'J¥Ks',nI 

WRITE  (7,88  $)(  IXNfNfJ)  ,ftR(J)  ,SS(J)  , J»KS,NE  ),XD 

e 

ir(  ztest  ,gt.  o j go  to  sao 

c 

810  CONTINUE 

nrcowf  ikuu 

138  CONTINUE 

IT  (KKXSS  , E6 . 0)  SO  TO  899 
WHITE  (6.89  -)  (R*FHIS(J),J»  1.KHISS) 

8 Too  FORMAT  (//31M  ***•*»****♦*•*****•*********•♦  / 

1 3JH  *♦»*•»•♦♦••♦•»•*»«*»•♦♦*******  / 

2T2H^tHE  VAiUi  OH  THE  REE.  fOUMb  AT  THE  PIEVICIIS  SWKr  Oil  ffSlS'  M 

3th|  rouowjwo  aspect  angles  //.  (fio.u  ) 

WHITE  (6,99'.) 

8810  FORMAT  (//31R  «****»*♦•***♦*«***************  / 

1 3i«  ******************************  //) 

C 

899  CONTZKUE 

JMXSS  - _ 

KMISS  ■ 

?00  CONTINUE 
ChZI  exit 

GO  TO  5 • 

'end 

FUNCTION  EUWC(A.B) 

AA  * A/1  • 

FUWC  = 1Q.*AtOG10(AA#AA  - B *B ) 

RETURN 

END _ 

SUBROUTINE  spectj 

COMMON/* L0cK1/CK3fcTi 361  ),  CMTH  ( 4, 36  1 ) , L*ST,  IV^RRF#  THOZD.  Z80,  d3aNG 
1.  IRS  . In  , IRSTPT  , xcm  . VSTd  , ZTH#  CONST  , S*I  . INODE  , 

2 SIGcAL  , cRONE ( 36 1 ) , ANOISE 
C 

COMMON /BLOCK2/ N3(361) , XiB ( 36  1,  10  ) , XSRCT ( 36 1 , 1 0 ) , 

1XNTST(3Ti7"l  T »ISPCT7361,1CY  »'isK(  361,10)  , S T G ( 5 1*  0 ) 

C0H:10J/b10cK4/  ljrPNM61,30>  ,R(361,30)  ,8(361,3  ) , 

’ NPN ( 36  1 ) « IINPN ( 30)  , FR ( 33)  ,SS(  3 I 


COHHOK/BtOCKS/  IR50BM(1. ) ,IFEGND(10) 

c 

DIMENSION 

1 ISBB  ( 1 ),  IS5EM  ),  ISNCTTMO),  ISPCTT(O)#  INTSTT(IV) 
DIMENSION  ISMOTH(IO) 

IREg  =• 

IKEN *■  • 

IDROP  m 
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ICOS'T  = 

IBTH  = : 

NFASS  » 1 

imw  t-t — 

NSATT  « NS(ITH) 

MS  (XT'-:)* 

lasti  » last  ♦ 12 

WHITE  (6,90'n  ( SIS ( J ) , J*  IAST,LAST1) 

9601  FORMAT  ( 70F6.2  ) 

“ 50  TO  f 8 \ 9 , ICTRL 

C 

BOO  IF  ( CKSAT(iTH)  ) 790,910,790 

790  IF  ( CKONT(HK)  . EQ  , ‘.C  ) GO  TO  800 

C 

9 10  comm 

DO  9"2 ' U * «MSATf 
ISBB  ( I J ) » ISb  (ITh,IJ) 

I3EE  lid)  = ISE  (XTH,IJ) 

ISNcTT(IJ)  » ISMcT(ITH,IJ) 

ISPcTT(IJ)  * ISPCT(ITh#IJ  ) 

__ISMOTH(_IJ1  = 

®20  INTSTT ( I j i = iNf ST( iTh,IJV 

c 

DO  922  JK  * 1,10 
I3E(ITH»JK)  « 

922  CONTINUE 

WRITE  (6,90  6)  MSaTT 
97*6  FORRAT- ( V'H  LOOP  o:r  NsATT  * , 1 3 ) 

IJ  = 

921  IJ  = IJ  + 1 
I S P A S ~ = * 

IP  = ISbbTiJ)  ♦ IRS 
IREKD  = ISeeTU)  ♦ IRS 
IRBBB  = I? 

NPIN’SA  = IREND  - (IRBEB+1) 

WRITS'- 6,6  1 I NTINSA 

60  10  FORMAT  ( 3 ^ H M H H 8 £ R OF  POINTS  JK  SATURATION  = , i5) 
IF  (MijKSfc  .GT,  3 ) 00  TO  9 

GO  TO  ( 1 1 , 1 2 1 1 3 ) , NPI'JSa 
11  IF  (I?PcTT(ij1  .ij,  3 ) GO  TO  51 

GO  TO  399 

51  NPN(ITH)  = NpM(irH)  ♦ 1 
ISUbS  ' = TPNllTH ) 

I K P K ( 1TH, T S 11 B P 1 ) = 2 

R (TTH,TSUB?1)  » FL0AT(IBBBB+  1-IRS)  * DRaNG 

VTT  = SXGfiRaBB* D 

WRITE  (6,-0  j)  R(ITH,ISUBS1) 

78  C 0 FORMA-  (2  H Pe*K  PLACED  AT  R * » ?8.2  ) 

IF  (VFT  ,LE.  aNOISE)  VPT  - aMOI?E  ♦ 1.0 
IF  (IVODE  .SO*  1)  VPT  = FUNcfVPT  ,cO^’5T) 

S (ITH.ISHBS1)  a VPT  ♦ SI&CAL 
GO  TO  399 
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12  IF  jlSPCTTUJ)  ,GE.  2 ) GO  TO  52 

52  HPK(ITH)  » ♦ 1 

ISUfiS  ■ ■ UPHflTH) 

IKPNIITK.ISUbS1)  ■ 2 

R (ITH.ISUBSM  ■ FLOaT(IHbb»+2-IRS)*  DRa*G 
WRITE  (C^O  0)  R ( IIH  i iSUgS  1 J 
VPT  ■ SlG(xRBBB+2) 

IT  iYPT  ^E^»OLSeJ..V^^_.W|OjSE„*_140_  _ __ 

IT  (irODE  »e6.  1)  VPT  * FUWc(VPTlC01lST) 

s (ITH,ISUBS1)  ■ VPT  ♦ SIGCAL 
GO  TO  399 

13  IF  (ISPCTT(IJ)  , G E . 2 ) GO  TO  53 

GO  TO  399 

53  NPNilTHL  = NPN(ITH)  ♦ 1 _____ 

ISUbSI  ■ NPN ? TTH ) 

IWPNUxH,ISUBS1)  - 2 
TOP  = SIG(IRBBB*1) 

JR  1 = 1 

IF  ( S3  G ( IRBBB  + 2 ) . LT • TOP)  GO  TO  54 

TOP  = SIG(IRBBB  + 2J _ 

JR  1 ■ 2 

54  IF  ( STg ( XRBBB+3 ) tLT,  TOP)  GO  TO  55 
TOP  = SlG ( IRBBB+3) 

JS 1 « 3 

55  R (ITH,ISUBS1)  ■ FLO AT ( IRBBB+  JR  1 -IRS ) * DRANG 
WRITE  f+»7>.'S)  R(ITH/ISUBS1) 

1 3 = 

VFT  = SlG (137 

IF  (VFT  .IE.  ANOISE)  VPT  - AHOISE  + 1,0 
IF  (ir’OpE  » eQ  . 1)  VPT  » rU*C<VPT*C0VST) 

S ( 1 TH # ISUgS  1 ) * VPT  ♦ SIGc^L 
GO  TO  399 


9 I CNN  x ISPCTT(IJ) 

IHT  = iKTSTTfi;) 

ICP  * iSNCTTflJ)  - 1 
III  3 IC?  ♦ 1 

WRITE  (6*90  7)  IJ,IR*IREND»1NT,II * 

91 C 7 FORMAT  ( aH  REGION  ,!4t1lK  IR  SrT  TO  rlU,'lH  RUN  TO  jR  , 14# 

I»T  • #Ih#  7h  icP  1 # I**  ) 

C 

GO  TO  1C 

C 

SCO  CONTINUE 

00  31  J"-  * ,1 

ISE ( ITH » JK  ) - 
8 10  CCNTI  US 

IF  * TRSTRT  - 1 

ICN  = 

ICp  = 
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I N'T  = 1 
IFENT  = L ; 8 T 


5 

IF 

• 

jH  ♦ 1 

ICONT 

= ICONT  ♦ 1 

IF  ( 

S 

TG(IP) 

.GT,  THOLD  ) 

GO  TO  5 

IF( 

IF  .IT. 

IF.ENd  ) GO  TO 

5 

GO 

TO 

u 

6 

IF  ( 

f 

1 

F .IF, 

1 ) GO  TO  5 

10 

ICP 

= 

ICP  ♦ 

1 

15 

CONTI 

"UE 

IF  ( 

T 

CP  .FQ 

. 3 ,AND.  INT 

.feu.  1 

GO 

TO 

25 

20 

NPN  ( I 

th)  = 

NPK(ITH)  ♦ 1 

I S U B S = KPN  r T T H ) 

I»PN(XTH,TSUb!>1)  3 1 

R (TTK,ISUbc1)  3 FLOAT ( IB-IH5-3)  * DRaNO 
VFT  = SIO!  f IR- 3 ) 

IF  (V’-T  .Le.  »N0IS2)  VPT  « A NOISE  ♦ 1,0 
I?  (II’ODE  ,EO.  1)  V?T  = FUNc(  VPT, CONST) 

S {TTH,ISWBS1)  » VPT  ♦ SIGCAL 
IKT  = 

GO  TO  ( ’9,225)#  ICTBL 
225  IF  (CKONE(ITH)  .S3.  .0)  GO  TO  2C 

ig  CONTI ''UE 

IF  { ypN(TTH)  . E « • 1 ) GC  TO  25 

KKPN  - NPK(ITH)  - 1 

IF  ( TNPN(iTH,KNPN)  . f3 . 2 ) 00  TO  25 

IF  ( R ( ITH,  lSUps  1 ) .EC1.  K(ITH.KNPN)  ) GO  TO  2?1 

IBbEGK  = R(ITF,KKPN)/pRANG  ♦ o.=)  + FL0AT(IFS) 

IF  < 'IG(TR)  .GT.  THOLD  ) 0 TO  21 

HR  = IK 
GO  TO  22 

211  NPNfITH)  = NPK(ITH)  - 1 
GO  TO  25 

21  IIB  3 IR  - 3 

22  IF  ( S(ITH)  . FQ . 0 ) GO  Tc  222 
IRNVL’i  = TRBEGN  - IRS 

IF  (I>B(I"H,Ni'UBSl)  .GT.  xRN'ULL  ) GO  TO  23 
222  WRiTF  (6, '0  ) 

6 ’’  C 0 FCR.-AV  ( 3 ' H **  V)  PRAk  F^VNj  Bj.TWkeN  TWO  NULLS  ) 

IF  ( ( iTJ-~(  lRrFG:i  *1)',  ) ,0  TO  23 

WFITE  ( c , ’ 0 2 . 1 

6C  20  F 0 R " A T ( 3 7 H 7 ?Or‘ITS  v gFE  NOT  A*OVe  TNOLd  ) 

GO  TO  ?r 

23  JJbFG'  * I R b E G 1 
JJEVJ  = Ir  BKOK’  + 7 

DC  2u  1 1 2 K = 1JDE3N,  JOEyD 

IF  ( "IG(TIJK)  . j T , ThOLP  ) 0 TO  2« 

WrITF  ( 6,r03 ) 

6130  FORr A'  ( u ' H 7 cONSr;.  TOINTS  ABcVE  THOLo  vK*l  NOT  FOUND  ) 
GO  TO  22 

2 4 cU NTI”UF 
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IF  EG  = IBEG  * 1 

IFEGBN  UREGJ  *_lRBEON  

XU6»?(XIS0)  - XXt 
WHITE  (6.6060)  IRBEGN , IIK 
6060  FORMAT  (2'H  LOCATE  A PEAK  BETWEEN  . 15,  3H  AHd  # 15  ) 

25  IF  - IR  * 1 

_ ICON!  * ICO]JT  ♦ 1 
" GO  TO  (27,26), ICTRl 

26  IF  (I*  ,GT.  tsEND)  GO  TO  226 

GO  TO  28 

226  IF  (SiGCIRjHd)  .IT,  SAT)  GO  TO  228 

ISE(  i'TH.N’SUBSl)  » IR  - IRS 

IC*  » ' 7 

WRITE  (6.9". a)  MS(ITH),I3NcT(ITK.NSUbS1)#IMTST(ITH,NSUBS1)  . 
1 iSBtiTH.NSOBSl ) » lS£ ( XTH . NSUBS 1 ) 

GO  TC  398 
228  IPT  - ' 

I_CN  * ~ _ _ 

GO  TC  3 

227  ir  (SlG(IRE»r)  .IT.  S Rl ) 50  TO  -00 

534  CONTINUE 

ISe(iTH,NSUbS1  ) « IR  - IRS 

ICK  = 3 
ICP  * 

WRITE  (6*9  .<* ) NS(ITH).ISNCT(lTK.MSUBSl),INTST(ITH.NSUBS1)  , 
1 IS3(ITH,NSUB3U»  xSE(ITH,NSUBS1) 

IF  ( IDEOP  ,e3.  0)  C-0  TO  400 

IF  (NpNdTH!  ,E2.  0)  GO  TO  400 

IF  ( R(ITH,ISUBS1)  ,GT.  (ISB(ITH,NSUbS  1)  * DRANG  ) • A ** D • 

1 R(lTH,lSUBSD  .tT.  (ISE(ITH.NSUBS1  ) * pRANG  ) ) 

2 N F 15  ( I T H ) ■ MPH(lTH)  - 1 
ISUBS1  = NPN(ITU) 

IDBO?  = 

GO  TO  4 
27  CONTINUE 

IF_(IR  .-'t.  iREMp)  CO  TC  227 
2°  CONTINUE 

IF  (IG(IR)  . GE . SAT)  GC  TO  30 
IF  C'IG(IR)  - SIG(IR-I)  ) 40.29,29 

29  IF  (TdRO?  ,eQ.  I)  GO  TO  25 
GO  TC  1 

3C  GO  TO  (37,25)#  ISPASS 
35  NS(I7H)  -•  NS  (XTH)  ♦ 

NSUB-1  =»  NStITH) 

ISB (iTh. NSUBS  1 ) ■ IR-IRs- 1 
ISNCT(ITK',NSU3S  I ) ■ ICP 
INTST(ITH.NSUBS  1 ) ■ I NT 
ISFASS  = 2 

WRITF  (6,9  t3)  IR,ICoNT 


238 


• 003  FORMAT  ( 2 OH  SAT'HATE  AT  SAMPLE  » 13  ,12H  , ICOUNT  ■ ,13  ) 

GO  TO  75 

4C  IT  ( SlG  ( IF*  2 ) .GE.  SIG(IB-D)  GO  TO  143 

xr  (zivisi  .e a.  i i so  to  so 

IF  (ICTRl  ,EQ.  2)  GO  TO  41 
IF  ( ( I R E V D - 1 F 3 .GT;  5)  GO  TO  533 
IR  ■ IREND 
GO  TO  534 
533  CONTINUE 

T7  ~T  UI1T-US}  - ITBnTH.ITsffBSiir  .11,  25  PGO  TO^l 

IF  ( SIG(IR*6)  .GT.  SaT  .OF.  SIG(IF*9)  ,GT.  S*T  ) GJ  TO  42 

IF  ( SlG ( XS+  1 2 ) ,IT7  SaT)  GO  TO  41 

IDROP  * ; 

GO  TC  25 
42  CONTINUE 

TttinrwT 

GO  T ( ■ 25 
41  CONTINUE 

ISF(ITH.NSUbSI)  ■ IR-IRS 
ICP  * " 

JJ1  - NS(ITH) 

'WHITE  T6.9'C4I  jJ1,I§NcT(lIH'#JJ1)»INTST(ITH,JJir,ISB(iTK»JJl)# 
1 ISFIITH, JJ1) 

5004  FORMAT  ( 0H  NSATT  ■ .14, 8H  ICP  *#I4,8H  XNT  - , 14, 

1 7H  ISb  » ’.  14, 7H  ISE  *,I4  ) 

IF  (IDROP  ,EQ.  ) GO  TO  5C 
IF  (KPKdtMT  .E3.  0)  GO  TO  50 

if  (£ (i!k;isUbs  i)  ;gt.  (isBriiH,NsuBsi)  • DHaNG)  .and. 

1 S(ITK.ISUbSI) .IT.  (ISE(ITH,NSUBS1)  ) ) 

2 HPN(ITH)  * NPN(lTH)  - 1 
ISUBS1  = NPN(ITH) 

IDB07  * 

5C  CONTINUE 
IPT  - 

IF ( IcP  .GE.  3 ) IPT  » 1 
ICN  - 

110  ICN  = ICN  ♦ 1 

Iff  ICN  .Eg.  3 .AND.  IPT  ,E3.  I 1 GO  To  120 
GO  TO  12" 

120  HPN(TTHT  = NI’N(iTH)  1 
INPN(iTH.ISUbSI)  * 2 

P (iTH.iSOaSl ) 8 FL0aT(IR-iRS-3)  * DRaNO 
VPT  - SIC.(ir-3) 

If  ( VpT  . LE . aNoiSe)  VPT  * aNOiSe  * 1 • : 

IF  (IMODF  .Eft.  U VPT  t FUNC( VI T, CONST) 

S IiTH.ISUrSI)  » VPT  * sigc«l 
IPT  - 

125  IR  ■ IR  + 1 

ICON'*  = TCORT  + 1 
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IT  ( ICTRL  .EG.  1 ) GC  TO  ]{*§ 

ir  (ir  ,gx.  i»bnd5  go  to  3oo 

GO  TO^’51 

143  IP  ( S I G ( I R ♦ 2 ) .GE".  SAT  ) GO  TO  55 
IP  (IDROP  .XQ.  1)  GO  TO  25 
GO  TO  1 . 

145  IP  (IR  .GT.  IREND)  go  *0  400 

155  CONTINUE 

H_J lx.  JM*').  99 . TQ  157 « 

162  IP  ( SlGdRf  ,GT.  IHOLD  ) GO  TO  1 65 
IBTH  = ieTH  ♦ 1 

IP  (icH  • IT i 3)  GO  TO  125 

IP  (KPAS5  ,EQ,  2)  GO  TO  125 

NPN ( ITHJ  » MPN(ITH)  * 1 
ISUBS1  = NPHiITH) 

INPN(iTH»ISUB31)  a 1 

R (iTH,iSUES1)  * PL0AT(IR-IRS)  * D*A**G 
VPT  = SlG(IR) 

IP  ( V p T . LE . AMOISE)  VPT  - ANOISe  ♦ 1.0 
IF  (IM0D£  ,Eft»  ')  VPT  * pUNc(Vl'T,  cOKST) 

S (iTH.iSUrSI)  = VPT  + SIGcAL 
VPASS  = 7 
GO  TC  12' 

157  ir  ( cKO^E(tTH)  ,EQ,  0,  ) GO  TO  165 

IP  (CKSAT(ITH)  ,eQ.  r-1.  ) ) GO  TO  162 

165  IF  ( SIG(Ir1  .LE.  SlG(Ip-l)  ) GO  TO  110 
IF  ( S I G ( I R + 2 ) .LE.  ST G ( IR*  1 ) ) GO  TO  110 
IF(I?PASS  ,EQ.  !)  GO  TO  17C 

ISPCT(ITH,NSL-BS  1 ) ■ ICN 
ISPASS  = 1 

WRITE  (5. g .5)  ISPCT(ITH.JJI) 

6C05  FORMAT  I*H  IC»  = . 1 3 ) 

170  INT  ~ ' 

IF ( ICN  .GE.  3;  INT  * 1 
IP ( TBTU  .EO.  0 ) GO  TO  40 
IgTH  * 

W P A S S = 1 

INT  = I 
140  ICP  = 1 
GO  TO  ‘ 5 


30‘  CONTINUE 

IF  (CKOMp(iTH)  ,eQ.  GO  TO  400 

IF  OcN  .LT.  3 ,a»D,  IPT  .E(2.  ) GO  TO  18C 

GO  TC  Bcj” 

1 8 C IP  (TSPcTT(IJ)  . g r , ')  GO  TO  1g3 
GO  TC  3a3 

190  I S ? c 1 T ( I C ) * ISPcTT(iJ)  - 1 
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GO  I'  • 1 


396  CONTINUE 

TT  U kONf  fTTH)  .EC'.  GO  TO  «00 

ir  (ismqth(ic)  .gt.  ) go  tc  399 

IB3UFS  «=  B(ITH,iSUbS  )/DKaHG  ♦ O.g  ♦ FLOAT(IRS) 
ir  ( iRQL’eS  .GE.  IRBRB  .A*D.  IROUeS  .LE,  TREND  ) GO  TO  60* 
ir  ( nsuthT  .EO.  0 1 GO  TO  600 
IISB  * I3b(ITH,'ISUbS  '■)  ♦ IRS 
IF  rilSB  .GT.  I R B 3 B ) Go  TO  399 

600  IRFGBN(U)  • IR3BB 
IREGND(IO)  » TREND 
WRITE  (6.6  4 > IRBBB.  TREND 

6:40  FORMAT  ( r 3H  no  Peak  FOUNc  BeTVeE'*  » 15,  5H  and  » IS*  1 1 H SAT  Score 
IS  ) 

CALL  SMOOTH  ( Ij,  IR.  TREND  ) 

ISMOTH(IJ)  * 1 
INT  a INTSTT(IJ) 

TCP  = ISNCTtdJ)  - 1 
ISPCTT(lO)  = TC  NN 
ISPASS  « 1 
spas*  « i 

GO  TO  • .< 

60'  INPNK  = INPNdTH.NS'JBSI  ) 

GO  Tr  (0  2.399),  TNPSN 
602  CONTINUE 

ir  fNS(ITH)  .EQ.  0)  GO  TO  603 
IISB  = ISB  (ITH.NSUbSM  * IRS 
IF  (TiSb  .GT.  IRUUES)  GO  TO  393 
60.'  CONTINUE 

IRFGEn(I.T)  = IREND 

WRITE  (6.6  7 ) I R CUE  S • IREND 

6 70  FORMAT  (06H  XXXXX  PEAK  FOUND  BETWEEN  ,16,  5k  AND  , I5,47H  N’J:l  Wf 

is  i a - t thing  Between  sat.  points  xxxxx  ) 

TRB3  D(I-’>  * IREND 

CALL  Sv.OOTH(  10,  IR,  TREND  ) 

ISM07H ( TO ) = 1 
ICP  - 
INT  - ' 

isr  a i s = 1 

SPAS-  * 

GO  T~  ‘ 

393  CONTINUE 

IF  (ISFa  S ,FQ.  1 ) GO  TO  1399 

IF  ( iSEdTH.MS  IBS  1 ) .LE.  I SB  ( ITK,  K SUB  S 1 ) ) GO  TO  13g7 

is?c- (Iik.nsubs  ) ■ icn 

I S Y A - S = 1 

WRITE  (6,9  ICN 

GO  T *3~9 

139*  I St  iITH.NSUESI)  a IREND  - IBS 
ICP  - 
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ICN  - 3 , 

ISFCT(ITH.NSUBSI)  ■ ICN 

imss  - i 

W*llE  (6,9.4)  NS(XTH),  ISW'ct  (ITH.RsTBSJ)  , INTST (X^M » MSUBS 1 J , 
1 ISB(ITH#NSUBS1),  XSf (XTh#NSUBS1) 

WRITE  (6,9  ,5)  ICH 

1399  CONTINUE 

IF  (IJ  .LI.  KSaTT)  go  TO  923 
4QQ  COWtlgUE 

xrc  ispasi  .eq.  i ) do  to  uoi 

ir  ( ISE  ( ITH*  NSUBS  1 ) ,LE,  ISB  ( ITH#  NiiUBS  1 ) ) GO  TO  140 
ISPCT(ITH,KSUBS  ) ■ IcN 
WRITE  (6,9*5)  IcK 
ISPASS  = 1 

GO  Tc  u : ’ 

1400  ISE  (XTH,VS0B91)  ■ IBEND  - ’ IBS 
ICF  = 

ICN  = 3 

ISPCT(ITH’.NSUBSI)  • ICN 
ISPASS  = 1 

WRIT-;  (6.9  .U)  NS(Hh),  I9NgT ( ITH , NSUbS 1 ) , INTST  ( JTH  # NSUBS  1 ) , 
1 iSB  ( iTii,  NsOBsD*  iSEfjTKiNSUBS  1 ) 

WRITE ( 6 , °0  5)  IcN 
401  CONTINUE 

IF  ( iREf-  .EQ.  0 ) RETURN 

IKFN  = IKEN  ♦ 1 


IF  1 IKEN 

,gt.  ireg  T return 

CALL 

SMOOTH ( IKEN,  IR,  IREND 

ICP  *■  0 

INT  * 

ISPASS  = 1 

NPASS  = ’ 

GO  TC  ‘ 

500  RETURN 

ENT 

SUfific  UTI"E  S M 0 0 T H ( IKEN,  IR,  I&END  ) 

C 

COMM  N/BL0CK2/  NS(361)  , ISE ( 36  i , 1 0 ) , ISNCI f 36 1 . 1 0 ) , 

1INTSC  ( 30  • , 1 „ ) ,ISPCT(36  ,10)  ,ISE(36l,10)  ,SIG(5(*  ) 

COMMCN/aLOCKS/  iREGfiNM  ) , IREGND  ( 1 0 ) 

PIKEESICN  A VG ( 3 ) 

C 

IRFORE  - IREGBN  ( IKEN  J - 1 
I R E T V o = IREGND(IKEN)  - ’ 

I C 0 U v T - 

CO  1 . TRK  = IREONS IRETWO 
IC0U: T * IgOUNT  ♦ 1 
ONE  = SIgTIRR) 
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IRP1  = I J R ♦ 1 
TWO  = ■'  I G f T P R ' ) 

THREE  = S I G f T R P <•  2 ) 

AVG(7C0U”T)  = ( ONE  V TWO  ♦ TOR EE  1/3,0 

;o>  continue 

pO  2 ' TR J = 1 , I c 0 U N T 

TRSUe  1 = IREONE  * 13 J 
SIC-(IRSUBI)  - A VG  ( IP  J ) 

20:  coktthu: 

ip  = TREGpN(lKEN) 

IRENE  = IHEGNT(IKEN) 

PETU^n 

-NO 

sufRcuti'.’e  rfor:,  ( i ) 


c 

c 


CO**  K/Block^/  lnp:)l  36  1,30)  ,*(361,301 

IN’FK  ( '6  ' ) , 1 1 N P N ( 30  , RP  ( 3 0 1 


TSF?  = 

1 I S F ^ = I"EU  * 1 

7 — 

U 

JL“ 

?R  (ISFQ)  R ( I . J ) 

~-S  (J.-FQ)  s-  s ( X , J ) 

TINP"  ( IS"0)  - JVPf’d.J) 

2:  j = ♦ • 

IF  ( HI,’)  . 0 E . PP(IFEO)  ) GO  TO  30 

r R ( IS  ~Q ) ••  P (I,J) 

os  (isvg)  - s (i.j) 

ii:;r-(is-a)  = 

JL  = J 

3'  IF ( .LT.  NFN(  i)  ) GO  T.  20 
“(*#  L)*“  1 • 

IT!  Ts  Fa  . IT  • NpV(I)5  Go  TL  1 '• 

PETE-  N 
F N j 

suer  ut;;-e  :ubirs  ( caTa.  irs>  , \sTdi  , ir 
cive-  sic:-  d/  ta  (*<«o  : 


ip  - ip  i 
ipss  = :"i 

IR  - IF  ♦ 

IF  ( D A T f ( I R j . ,T.  DaTA(IRSS)  ) IRS 
TF  : :P  . lt.  ip;  ) -o  T 0 
vstd;  ~ r ata(.tp.-s) 

F E T U '■  N 
INI 

sym:  ef  dat»-iv 

310' K INPUT 


• IP 


,'(361,30) 
SS(  0) 


IE  2 ) 
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SECTION  IX 


CLASS 


245 


CCMMo8STX(^Ii^S8r5^E?lC)»  V(  '6,10.6)  . TH(10,10).  OHAX,  icat.  mode, 

INC,  In  

D IM  eR  5T5n  "1 1 D { 6 D , LVE^rgl.  a5p120CT,  ‘VcrZTNMTT  VCTS(200.6>  * 

1NcONP(  1 ) , 

2PTGH(1  !,  Nc»Tf  . 0) ,p?1  , 0, 10) ,IC( 10# 1C, 10,  10) 

DIMENSION  TGTlD ( 12) 

DIMENSION  NVJciPfl  . 1 r 
18  ^ONTlNUp 

READ  (5,  T"o  T^c,  n’dim,  TrjSKVH 
lofeo  format  ( '2i5) 

WRITE  <6,  '0  1)  NC,  >DlM.  NUNeHN 

1 0R  1 FORMAT; 1 H , 3 4 R K 0 , or  TARGETS  USEn  IN  TJAiEjNC, , ,,{2, San, . .diMeNSjORRS  1 
in  or  decision  spkc(.;.;i2,  3h,*.7ih  ,41hno.  or  unknown  target*  to 
2Bj  PRO^jSSej).  . . » I-1*,  3H  . t,  )_ 

ir  (Nc.gT.  .aSd.Nc.LE.  ’O.aND.NDIM.'.’T.'O, A*D.*brfc.T*.T  '.aNd.»V»K®>' 

1.GT.0)  GO  TO  11 
WRITE  (6,  ’0  2) 

1 0 C 2 FORMAT;  1H  ,72HNC  AND  NjjM  MUST  BE  ,GT,  ZjRO  A»c  ,lEt  TjN  ANp  NUNk»RRS  1 

in  must  be  .ot;  zero.) 

_ ciii  I*i* 

Ti  continue 

read  (5»  1 o I (nmode(i).  j « i»  nc) 

WRITE  '6,  '0  3) 

i o? 3 format ; “h  ,25hcategori  Nc » or  mode») 

WRITE  1 6.  *0  4)  (I,  NMODE(I).  I * '•  NC) 

1CC4  rORMAT  [5x»  i2,  12X.  I?)  

DO  12  I - •,  fc 

IF  (NMCDE(I) .GT.O.AND.NMODE(I)  ,LE. 10)  50  10  12 
WRITE  (6,  '0  5) 

10C5  FORMAT; 1H  ,39BKMOdE{ j)  MUST  BE  • GT , ZERO  ANp  ,It,  TjN) 

CALL  E*I* 

12  CONTINUE 

do  3 C I ■ ",  Be 
NMD  = NMODEdT 
HEAD  (5,  1061  TGTID 

ICC 6 FORMAT  { '2x4) 

WRITE  (6.  IOC?)  I,  TGTID 

1 0 B 7 FOFMAT ( ;H  , 8HCATEGOR YAI4 , )g  ....  , 12AU/) 

DO  2C  l ■ NMD 

READ  (5,  1 O0l  (Htl.I.J).  J * 1.  NDIM) 

1018  FORMAT;  6F ‘ 0 , ) 

READ  (5,1  2 I TH(i,U .NVEcTR(I.L) 

1020  FORM AT  f F 1 .0,15) 

WRITE  (6,  '0  9 ) t 

1 00  9 FORMAT  ( 1 H ,hhmoce  NUMBER,  I?/) 

write  (6,  -01.)  CML'.I.J),  0=1.  N p I M ) 

101  FORMAT;  1H  ,24HWEJGHT  VFCTOR  (-OMVONeNTS./IH  , 1 OF  1 “ , 2 ) 

WRjTe  (6,1  1 1 T TH ( 1. 1 ) . NV ECTR ( J, L ) 

ICll  FORMAT;  1 H , 12HTHR,.;SHOLD  = , F 1 0 » 2 , 1»HNVecTR(I»L)  * ,j5/) 

20  continue 
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3D  CONTINUE 

DO  34  1-1, <o 

PIGH ( I ) - , 

DO  33  J-',  ’0 
NCAT(I,J)  * 

DO  32  K*  “ » ' 0 
P ( I , J » K ) * 0, 

DO  31  L- 1 , ' 0 
XC(X,J,K,L)  * 

' 3 1 CONTINUE 

32  CONTINUE 

33  CONTINUE 

34  CONTINUE 

FEAD  (5,  ID  0 C } (NCONF(I),  1*1,  NC) 

WRITE' (6,  '013) 

1013  FORMAT* 1H  ,48HCATeG0RI  NO.  OF  NONZERO  ELEMENTS  OF  C MATRIX/! 

WRITE  (6,  'OIKI  (I,  NCOMF(I),  Is  ' # NC) 

ICltt  FORMAT  (?X,i2,  20X,  jl  ) 

NNSUM  - 
DO  36  I = ‘ » N C 

16  NNSUM  - NNSUM  ♦ NcONTCl) 

DO  40  II  = 1,  NC 
NCF  * KCONF(H) 

IF  (NCF.EQ.O)  GO  TO  4 

READ  (5,1  15T'I, J,K,l.  IC(I.J«K,L),KK«1,N CF  > 

1 C -1 5 FORMAT  ( Jj(?x, 412,15)  5 

4 ; continue 

WRITE  (6,  '017) 

1 C 17  FORMAT  I 1H  , 24H  I J K L c( I»J#K#L)/) 

IF  ( NNJ-UM  .EQ.  ) GO  TO  8 
DO  81  I L NC 
NMD  - v M 0 D F ( I J 
'DO  7 l J '*  1,  NMD 
DO  6 0 K = ”,  NC 
N NMD  = NKOUE ( K ) 

DO  5C  L = ',  NNMD 

IF(  IC(I,J,K,t)  .00.  ) G J TO  5^ 

WRITE  (6,2  1ST  I , J » K , I , IC<I.J»K,l) 

2 C 16  FORMAT;  4 ( ' X, 1 2 ) , >X.X$  ) 

5:  CONTINUE 
6?  CONTINUE 
7*  cONTIN"e 

e:  continue 

81  CONTINUE 


DO  15 

1=  ' • 

NC 

DO  14 

j * 1 , 

NC 

NMD  = 

NFtOi 

E(  J) 

DO  1 3 

K=  ' 

■ NMF 

SUMK  = 

” • 

SUM! 

IF  ( J 

.EQ. 

I ) 
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n o o 


nnmd  - u m o d e r i ) 

DO  V 5 LP“  1 , NNMD 

SUNK  * SUKN  * IC(I,IP,  JjJC ) 

f 05  CONTINUE  ' 

DO  115  M«  ’,NC 

IF  ( M .EQ.  JT  GO  TO  1 5 

LMD  c NKQDE(M) 

DO  11'  L * "«  L M D 

SUMD  * SUWD  * IC(H,1,J,K)  - IC(J#K,M,l) 

110  CONTINUE 
115  CONTINUE 

P ( I , J , K ) = SUMN/(  NVECTR(J.K)  «•  SUMD  ) 

GO  TO  ; 3 C 

10U  CONTINUE 

DO  125  M»  ,NC 

IF ( M , EQ • I ) GO  TO  '25 

LMD  s NMODE(M) 

do  12  l«i;lhd 

SUJ1N  - SUMN  * IC(S,l,t»K) 

SUMp  = SUND  * iC(M.L»I»K)  - lc(l»X#K,I) 

120  CONTINUE 
125  CONTINUE 

P ( I # I » K ) = 1.  - SUMN/(NVECT*(I#K)  + SUMD  ) 

130  CONTINUE 
luo  CONTINUE 
150  CONTINUE 


DC  16*  I=',NC 
WRITE  ( 6 * ? 0 5 ■ ) I 

2050  FORMAT  ( ‘ H . 30HCONdITIONAL  PROBABILITIES  FOR  c*TEGOHY,x2) 
DO  '55  J 3 # N c 

WRITE  ( 6 » 0055  ) J,  (P(I,J,K),K»1#  1C) 

2^55  FORMAT  ( 1H  . 8Hc ATfGOP  Y , 1 2 , , 1 0F8  . 4 ) 

155  CONTINUE 
160  CONTI  UE 
IPROP  3 

7 r 0 IPROB  = ITROB  ♦ I 
DO  <51  I ’ * ' » 1 
PlGH(ll)  = . 

DO  9 J '*  ' » 1 
NCATCI  I, J ' ) * 

90  CONTINUE 

91  CONTINUE 

RFAL  ( 5 # • 0 .)  NSIG#HPDE3, (IID(J) » J»1#5) 

id  * : 

DC  *?  7 J 2 ' 3 ' J r 
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I r ( IIDU'I)  .EQ.  0 ) GO  TO  70  I 
It  * ID  * 1 
LVEC(ID)  - J2 1 

TT1  -continue  “ 

READ  (5,  0 6)  T3TID 
WRITE  <6,952  ) I PRO  8 » TGTID 

9520  rORM AT ( ‘ H . 25H0ISCRIMiNAKTS  FOR  UNKNOWN , 12, 4H  ..,,12*4) 
C 

DO  70?  NTT»1,NSI3 

RrAD  f5,n5251  ASP(RTT),  f Vc  (NTT,  t ) , i«i , 6 1 
9525  FORMAT ( fP.  , 4X,  7?5.0  ) 

I F { Ni'cES  , EO . 2 ) 50  TO  706 
CO  7 2 J2'»1*ID 
LLV  a LVEC(J2?) 

VcTF(\TT,.;231  » VC(STT,LL«) 

TC2  CONTINUE 
GO  TO  85 
7:6  CONTINUE 

DO  71  J 2 ? ■ 1 , I D 

LIVFC  = L 7 E C 7 J 2 3 ) 

GO  TO  (8  -.8  2.8  3.8  4,8  E),LLVeC 
'TTT  VcTR(S'tT,.’2IT  ■ AMAxUvc(NTl.1),Vc(NTT,M) 

GO  TO  7‘ 

S C 2 VCTRC  TT,  J23T  «=  AM A X • ( vc  ( XTl . 2 ) , V.; ( NTT, 5 ) ) 

GO  TO  71 

803  VcTR(NTT,J23T  = a«A*WVc(NTT.3),Vc(KTT,6)) 

GO  TO  71 

8C  4 VcTRfVTT. J23T  = *MlNl  7 VC ( NT! . 3 ) , V<_-( NTT, 6 ) ) 

GO  TO  7 - 

805  Si  = .*MVc(NTT,3)/2j.) 

S2  * * .**  < Vr f NTT, 6J/70, 1 

VcTR( VTT,023T  = A b s ( s “S2)/(Sl+S2) 

C 

710  CCNTl'UE 

815  WRITE  (6,953  ) ASP ( NTT ) , ( VC1 R ( "TT, L ) , L»  1 , ID  ) 

55?0  FORMAT ( X,  1 F 8 . 2 ) 

703  CONTINUE 


WRITE  ( 6 , 0 5 ' 0 ) 

95 ' 0 FORMAT ( ‘R  , "oHClASSTETED  AS 
* CAT7  C A7  8 fAtj  C A T 1 ) 

WRITE  (P,c5  1 ) 

950  1 FORMAT  ( ' H , 16HcATEr,ORY  MO?  g 


C 

C 


DC  9 ' NTT»1,NSIj 

DO  82'  J«  ’.ID 
X(J)  - VC?R(NTT,J) 
820  CONTINUE 


**  C A T 1 


**) 


C 

c 


CALL  ’ ECU  E 


CAT2  CAT3  r AT4  CATS 


C’  TS 
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NCXTflCAT.  MODE ) ■ NCaKICAT.  MODE)  ♦ 1 
DO  699  I * 1 ) Nc 

. ..mil.?  iKftrici) 

SUM  ■ . , 

DO  62  J * U Nc 
NNMD  * NMOdeIJ) 

DO  5 1 ' l * 1j  NNMD 

SUM  = SUM  ♦ FLOAT( NCAT{ J,U )*P(I,J.L) 

6J  0 eOItlKttl 

620  cONTivuj 

PIGH(T)  * SUM/rLOAT(NTT) 

699  cONTIKUE 

WPITe  (6,9510  IcjlT, MODE*  (PI6H(I), 1-1. 

9510  PORMAT(Ux,i2|5X,i2,4H  * * , F5 , 3 , 9 ( * X , F5 , 3 ) ) 

900  CONTINUE 

ir ( IPROB  ,LT.  NUNKWN  ) 00  TO  ICO 
GO  TO  1 

C 

END 

subrontinlldbcide  _ _ 

COMMON  X(6),  iNOgst  1 ),  W ( 1 0 # 1n.6),  TH(10,10),  GM^X,  ICat»  «0»*» 
•NC,  ID 

DIMENSION  G(1  , 10) 

DO  2 I « 1,  KC 
NMD  « NMOLE ( t ) 

fife  1 L *L  li  V[1D  . _ 

G ( I,  I ) = . 

10  continue 

20  CONTINUE 

DO  7 1=1,  NC 

NMD  = NMOi'E(t) 

DC  6 L ■ 1,  NMD  . 

DO  5 J = 1,  ID 

G(L,Ii  - 0(1,1)  ♦ X(JT#W(LiX.J) 

50  CONTINUE 

GU.II  = 0 ( L , I ) THU, I) 

IF  (L.EQ.  ' ) GO  TO  55 

.IF  (GU,I)  .ITOM  IaX)  TO  TO  60  _ 

55  LOcF  * L 

GMMAX  = G U , X ) 

60  CONTIVUE 

IF  ( I.eQ.  ) GO  TO  65 
IF  (GNMaX. LT.GM*x)  30  TO  70 
65  ICAT  * I 
MODE  - LO' E 
GMAX  - GMMAX 
70  CONTINUE 

return 

END 

3 2 1 

1 * 2 
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TRAINING  T AjGgT  NO.  1...  MOl'iJL  Al/59 
-1063.115  51 

TRAINING  TARGET  no:  2...  UCHjEL  e/19 

2.070  16.759 

-I42.5e8  51 

TRAINING  TAKgET  NO.  3...  MODEL  66 

2.111  9.0  " 

*50,301  76 

1.133  *.e3* 

-0.0-2  :s 


0 3 

2 1 3 1 3 


i:i 

? 1 

• 

ho:  el 

65 

T.6 

2. 

2 .8-10.7 

2.  ' 

9.8-  19.  ‘ 

0,5 

r.5 

A • 

2 .8-10.3 

2,  ' 

9.8-17.7 

1,0 

1.0 

A f 

21.3-10.9 

0,  ' 

8 . 8 - 1 7 . £ 

2,0 

’.5 

2. 

2 ."‘-10.3 

• 

20,3— IP. 

1,0 

2 , p 

2. 

2 .3-18,9 

"I 

9. 3-2'. e 

1.5 

2.^ 

3. 

19.0-2  .3 

*5 

• 

20.3-2?.: 

0,0 

3.c 

3. 

2 ."-2  .9 

J 

9. 3-25,7 

19,0 

3.5 

3. 

19.3-22.5 

9. 3-2*. 6 

19,6 

h.r 

3. 

19. P-2  4,2 

24.2-26." 

1.0 

4.5 

3. 

19.0-23,7 

/ | 

9.3-22 ,8 

0,5 

5.o 

3. 

19.0-27.7 

Jl 

20,3-21.? 

19,3 

5 , e 

3. 

21.7-27,0 

** 

9,8-22.2 

19,8 

6." 

3. 

21.3-27.3 

•5 

• 

9,8-2''.? 

19,8 

6 . 5 

3. 

21. --27.3 

*1 

9.8-20,8 

19,3 

_ /■> 

/ • ' 

2 • 

2 .3-27.1 

9.3-22.2 

19,3 

7.5 

A • 

2 .0-27,9 

• 

9.3-2-.? 

19,3 

P.5 

2. 

19 . 3-27.5 

7 ** 

8 . 8 “ 2 r . ? 

18,3 

0.5 

2. 

19.0-27.7 

• 

8.8-25.7 

1 8 • 8 

9.0 

3. 

23.7-25.9 

-> 

• 

•9.3-2-.: 

19,3 

9.5 

4. 

2 3*7-2  7,5 

9 . 3-22 . c 

20, g 

i:.o 

* • 

24. 7-20.  1 

9.3-22. : 

20,3 

1C.  5 

3. 

24.2-27,5 

9.3-2  * . T 

1 8 • 8 

11. C 

3. 

22.2-20,2 

•3.3-2?, • 

18,3 

11.  s 

3. 

2 3. 7- 2 7, 3 

7 # 

9.3-23,5 

20,3 

32.^ 

3. 

24.7-27,5 

^ t 

9 . J - *■  “ • 

20,3 

12.5 

2. 

22.7-27.2 

• 

8.3-26*? 

0,5 

i3.r 

2 • 

22.7-23.2 

2. 

8.3-2'".  6 

0,5 

13.5 

A • 

23.2-23,0 

4 , 

23,7-25,2 

0.5 

14. 0 

3. 

22.  — 27. 0 

7 

8.8-2. ■ 

1 8 • 8 

14.5 

3. 

23.7-2  7,4 

t 

P.S-2' 

* 9 » 8 

15.' 

3. 

22.7-27,7 

i * 

• 

'8.9-2? .7 

0.5 

1-5.5 

3. 

22.2-27.6 

8.3-2*, 

0,5 

1 6 • 0 

2. 

21.2-27.5 

*> 

• 

0 • 3- «- 7 . . 

0,5 

16.-' 

2. 

22.7-27,9 

9 . 3-/6 , - 

c.c 

1 7 • C 

2. 

2 3 . --27. 7 

t 

•0.3-2". 9 

1,0 

17.5 

2. 

22. --27. 2 

J " 

8. 3—26 . 9 

0,5 

•U.o 

/.  • 

22.7-2t,2 

u # " 

8.9-27. ‘ 

1.0 

UK 

18.5 

19.0 

2 • 
3. 

22.7- 2  7.2 

23.7- 27.3 

1 

* 

8.3- 26.0 

8.3- 2*»,6 

0.5 

0,5 

3150 

19.5 

2, 

22,7-23,1 

3, 

8.6-26.5 

>°c 

fTe<? 

2: . c 

9 

22.7-27.1 

/ « 

'7.3-27.  ' 

0 , 5 

3170 

2C. 5 

2 • 

22.7-27.1 

7 

• 

23.2-26.9 

1.0 

3180 

21.0 

2. 

23.2-27.4 

*-  • 

8.8-26.3 

0,0 

3190 

21.5 

2. 

22.2-27.9 

7.8-26.5 

0,0 

3200 

22.0 

2. 

22.7-28.0 

2. 

9.3-25.8 

1,0 

3210 

22.5 

3. 

2\7-26j5 

2. 

8.3-26.7 

It 5 

3220 

23.0 

2. 

2 '.P-27.I 

2 0 

8 . 8“ 2 P • 

1,0 

3230 

23.5 

2. 

2 1.3-27.4 

2, 

6. 8-25,5 

0,5 

3240 

24.0 

2. 

22.7-27.2 

•5  f 

6.8-25. 

0,0 

3250 

24.5 

2. 

2 1 .7-25.5 

3. 

7.3-25.8 

0,0 

32g0 

25.0 

2. 

2 1.7-23.6 

5 . • 

0,5 

3270 

25.5 

5. 

2 • R ""  2 £ # g 

2.' 

6. 0-2§* - 

1,0 

3280 

26.0 

3. 

21.7-25,7 

6.3-25.4 

1.5 

3290 

2g  . 5 

3. 

21.7-25,5 

2 . 

6. 3-25.  4 

0,5 

3300 

27.0 

3. 

21.7-26.C 

6.3-25.5 

0,0 

3310 

27.5 

2. 

2 • 7-26 , 9 

2. 

C • ^ 4 6 • 

1.0 

332'1' 

2e.o 

3. 

2 1 .8-27.2 

'6.3-25.6 

0,0 

3330 

2e.5 

3, 

2 .3-27,2 

2. 

5.8-26,0 

0,0 

3340 

59.0 

3. 

2 .p-25. i 

'5.3-26,0 

1,0 

3350 

29.5 

3. 

2 '.2-25,7 

2 9 

5. 3-25. c 

0,0 

3360 

3r , * 

3. 

21.^26.3 

5.3-26.  ’ 

0,0 

3370 

3*.  5 

3. 

19.8-25.2 

y 

■4.3-25.3 

1,0 

3380 

31. C 

3. 

2 .3-27.0 

2. 

4.8-26.  ' 

0,5 

3390 

31.5 

3. 

2 . a-2  5 , 0 

6 9 

4 . 8-25.9 

1,0 

3400 

52.0 

3. 

2 1 .3-25.7 

'4.0-26.6 

0,0 

34  10 

32.5 

3. 

2 1 . ’-2 7 , 1 

3.8-25.5 

0,5 

3420 

33.0 

3. 

2 .3-28.3 

4.8-25.2 

1,0 

3430 

3 3.5 

3. 

2 .3-27,1; 

•5.3-25.7 

1,5 

3440 

34.0 

3. 

19.E-25.3 

4.8-25,7 

0,0 

3450 

34.5 

3. 

19.3-25.8 

7, 

'4. 3-24. 9 

0,5 

3460 

35.0 

3. 

19. 3-25.7 

• 

4,3-24.7 

0,5 

3470 

35.5 

3. 

2 .3-25,5 

9 

3.8-24.5 

0,5 

34fl0 

36.0 

2. 

13.6-25,4 

9 

'4. 8-24,. : 

0,5 

3490 

3e.5 

2 . 

12.4-25.2 

✓ 9 

4,8-23,9 

1,0 

3500 

37.0 

2. 

13.3-25,0 

*1 

3.9-24. ' 

1,0 

3510 

37.5 

2. 

l3.?-25.4 

-N  - 

• 

3.8-24. 7 

0,5 

352C 

3p.C 

i. 

. -24,8 

“N  - 

■4. 3-23. c 

1 , 5 

353c 

3c. 5 

1. 

. -24,8 

2, 

'4.3-24. ' 

1.0 

354C 

3?  .C 

L.  • 

13.3-25.8 

*1 

i 9 

'3,6-24, 

0,5 

3550 

39.5 

2. 

13.  '-2  *.3 

*■) 

t 9 

; 3. 4- 7 3. ? 

0,5 

3560 

4 v . 0 

2, 

1 1.9-24.0 

2 * 

i3.e-2?.- 

1,5 

3570 

4'  .e 

1 . 

-2»,5 

9 

'3.8-27.7 

1.0 

358  0 

41.  C 

1. 

• — 2 1 . 6 

< § 

13.4-23,6 

1,0 

3590 

4 1,5 

2. 

12.9-24.6 

7, 

'3.4-24,  * 

0,5 

3600 

42.* 

2. 

13.3-24.4 

*i  * 

2.9-23.7 

0,5 

361* 

42.5 

2 • 

11.8-24,4 

4. 9 

3.4-23.7 

2,0 

3620 

4 3.0 

2. 

13.4-2  4.5 

'2.9-24.: 

0,3 

3630 

4 3.5 

2, 

1 1.9-2  -t,  1 

2.9-23.5 

1,0 

3640 

44.  * 

2. 

12, 3-23,7 

2. 8-22. ? 

0,5 

3650 

3660 

44,5 
45. c 

1: 

12 
1 1 

, 4- 2 4 , 1 
! --24 1 2 

'1 

3670 

45.5 

2. 

1 

.9-23.5 

S 

3 fi  IT 

2. 

9 

:--22.9 

* 

3690 

46.5 

2. 

1 

,U-24. 3 

z 

3700 

47.0 

2. 

1 1 

.--23.7 

7 

3710 

47.5 

2. 

1 

.4-23.0 

7 

3720 

48.0' 

2. 

1 

.4-22,3 

37  30 

48.5 

2. 

12 

. 4-22,6 

3740 

~«9.C 

2. 

1 

.“-22,6 

3750 

49.5 

2. 

1 

.--22,9 

7 

3760 

50.  C 

2, 

9 

.9-22,0 

* 

•1.9*21.  • 

1.4- 22.' 

' 1 . 4-2 1 . * 
’1.9*22.2 
■1.4-21.9 

1.4- 2 
'5.9-2  1.  ‘ 

1.4-2  .2 
0.4-2  ‘.7 


C • 5 
0,5 

1.5 

C.5 

\C 

C,0 

0,5 

1,0 

1.5 

1,0 
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SECTION  X 


TRAIN 
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_ W J 


ci  n n r»  ci  ci ci  o nn  nan 


C RAD9JN  TRACER  2 

COMMON  KB. 

JC . tV(10#i8l,l  > ; TTV(1C,1#1.10)  * Bw (10*10,10)  . BTM(  10*10)  . 

Wdo.  10,  t ) , TH(10;i0>  . AVDlST(tOf#  X<12), 

1110(10),  ASP(lO.iai).  UVEC(10).  NWS(lO),  KWSdO.10),  MODCnT,  lows 
COMMON 

I Nc.  ID*  I.  N»*  SSi  NH;.  IMPRUV,  IBBST,  I TRjN,  MODE*  ICAT, 

I NLV(lJ>*  NMDOSdO),  m90D(10».  ncorr 
COmMON/BLOCKI/  NWSB  ( 10  ) , KUSBdO.lO) 

C0MM0N/B10C<2/  INBdOJ.  Ni<10*,iO)*  IN6MOO<10,10) 

C0MM0N/bL0C<3/  HOOVC(in,ni>,  MODVCb  dO|lll ) . *CNTT  ( ID , 10 ) . 

1 aVmODEUO.U) 

C0MM0N/BL0C44/  CC<10,10>.  IFORCE 
DIMENSION  V 3 1 01 ( 9 ) » V0IDH<5),  TGTID(12) 


IS  continue 

WRITE  ( 6 . 75  Q 1 ) 

WRITE  (6,  1030) 

1119  '0R*AT  d*  » 22«  OUTPUT  From  MAIN....  /) 
wbITE  <6.752  J 


«•••••&••• 

C * 4.0 

11GS  FORMAT*  6F13.3  > 

READ  (5.1003)  NC7NPROBS 
13(1  F qrmat ( 12 1 5 ) 

WRITE  ( 6 » t ' 3 4 ) NCJNPRObS 

1004  FORMAT  <1W  , 5HNC  » ,12,  11H  NPROBS  » ,13) 

l F < NC  ,QT . 0 . AND . NC , LE , 1'  . AND . NPROBS  . gT  .‘0  , AND . NPROBS , lE  ,*1U  ) 00  TO  11 

WRITE  (6,  1 0 ■ 3 ) 

1 0 1 5 Ff)RM  AT  ( jH  d^HCHECK  NC  AND  NPR08S) 

Call  exit 
IS  C0Nt1nUe 


write  <6,750  > 

NTT  * 0 
CK  * 4.0 
DO  40  I * 1*  NC 

RcaD  (5,  1 01)  THETi,  THET2»  DbLTH 

write  <6,  30  3)  tweti,  thet2,  dflth 
Old  format  uh  .shthEti  * .fio.r.ioh  thEt2  > ,fio.4.ioh  dEuth  * , 

1^1 0 • 4 ) 

NCMISS  s 0 
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ItlT  ■ t 
TMETn  . ?M8Tl 

TWgT?1  n THtf? 

DELtHi  ■ OE'-TH 

Read  tf,  3n(j4r  tqtid,  npol 
•Jll  FORMAT  i15a4.7x.II) 

WRITE  (6,  3 0 a 5 ) JTQT*  TGT1D*  N*Ol 

4965  Format  1/nH  ih3HCatB80RY  NO,  , I3*3H.?',,tlA4.29M  10;  ROLAR  IZaT  IONS 

1 AVAILAUB  FtSI 

READ  <3>  3096)  OTHET 
T5RMAT  {2»xrrlf’.0) 

WRITE  (6.  3007)  DYHET 

J6I?  ^<3tMAT  aW  .17HASRECT  INCREMENT  ,Rio,l.'|H  DiBREElJ 
lr  <DELTM1.3E.DtHGt)  QO  TO  300 

9«0  CONTINUE 

5*8  continue 

00  304  l ■ i.  npol 

READ  <3*  3C10»  NV9ID 
3:ti  roRMAr  ( 3?x  r I 4 ) 

IT  ^NVOTDTtl.T)  80  TO  504 

read  <§,  soil)  < vo i dl < k > , voi dm < k > , k ■ i,  nvoid) 

Jiff  r gun at ( iof*.o  ) 

M Continue 

I*  (NvO’O.Ef.j)  QO  TO  600 
**ITE  (6,  3830) 

SUfO  roRWAT  11H  »4?HN0?  VOIDS  AND  TheIR  LOWER  IND  UPPER  CIRlTSt 
WRITE  (6.  3011)  NVOID.  < VOlOltJ) 'VOlDM(j) * J * 1»NV0IB) 

5fPl!  T0RMAT(iX»  I4-3X'10T6.1  ) 

DO  306  L ■ i,  NvOlD 

Jr  ITyEYlfG3iV0I0i.<L)  .AND:tHETi.lT.VOID«(L>!  tHETii«V0I DHIl > 
lr  <TMET2.QT.V0IDL(L).AND?TMET2.Li.W010M(L>)  THETfl'Vfll OL<L > 

IT  <T#ETlt.-T;TWfT2l)  00  TO  506 

Jala  Format  < 1M  .66HASRECT  SECTOR  CHOSEN  falls  WITHIN  A VOID  IN  TMI  DAT 
ia  for  Category  , 13) 

Call  b* 1 t 
161  CONTINUE 

DO  50*  l » 1 . NVOID 
- VOYD  ■ 0 . 3*1V0 1 DL  IL ) ♦ VO T DM  tir ) ) 

l p (VOYD.QTJTRETll.ANO.VOTD. LT.THBT21I  NCMlSS  « FLOaT CNCM I SS  ) ♦ 
1VOYD/oTh£t  - 1.0 
M CONTINUE 

• If  NCOS  » (TMET21  - THETID/DTHET  ♦ 1.0  * FLO AT ( NCM I 3S > 

IJKP  . DE.T4/DTMET  * J • 4 
I CD^  » 0 
NLv(ITGT>  = 1 
WRITE  (6.  60"3)  I 

*•90  FORMAT  ( /3  X » J HTRAIN1NG  VECT0R3  FOR  0ATE90RY  »I2) 

C 

T T V ( I TOT , 1 » 5 ) n 1.0 
TTY( jTGT,1>6)  g 0t5 
f 99  CONTINUE 


256 


jj  » nlv<  Iran 

• 10  READ  ( 5 • 5 0 J 3 ' ASP ( I TGT . J J > . ( TTV ( I TGT . j J, J * . J* 1 , « > 

WRITg  (6,60^1)  A*PnTQT,JJ),tTTVfITOT;jj;j»f  J*l,6) 
f 0 1 3 roRMAT(  P6-'  .4X*TF5.o  ) 
fill  rO*MAT<ix,i.ir8.2  ) 

6 

• 2<  tens  • I CDS  ♦ 1 

c 

• 25  MLvttTQT)  » WLV(ITGT)  ♦ 1 

IF  (NCPS.LS. I CDS  > GO  TO  930 
IF  { ISKP.E3. 0)  GO  TO  5-9 
I BOM  . NCDS  - ( I CDS  ♦ IS*P) 

IF  (IBDM.LT.j)  GO  TO  527 
DO  526  LL  • 1, ISKP 
READ  (5,  4 □ j > 

4000  rOPMAT  (72K) 

•36  CONTINUE 

I CDS  ■ I CD  3 ♦ ISKP 
IF  (NCDS.L5.  I CDS ) GO  TO  530 
qO  To  509 

• IT  luL  » NCOS  - I CDS 

DO  528  LI  a 1. LU- 
RE AD  (5,  4 0 : 0 ) 

•33  CONTINUE 

•30  NLV(ITGT)  « NLV(ITGT)  - 1 
VTT  a NTT  * NLV( I TGT ) 

40  c0NT!N|JE 
SISIG  » NTT 
IPPO0  3 0 

TOO  I PROS  f IPR03  ♦ 1 
NPASS  = i 
IBEST  * 0 
C 
c 

READ  <5.1  33)  NPDES » < I I D < J 2 1 > . J 2 1 = 1 • 5 > 

ID  ■ e 

00  7 ji  j2l * t # 5 

I F ( IIDCJ21)  ,EQ.  11  > GO  TO  70l 
ID  * ID  ♦ 1 
LVEC<  10)  = J21 
701  cont!nUE 

c 

m write  <6,70 jjMprqb 

7(00  rORHAT  (////l  X|33hDISCR!MINANTS  FOR  PROBLEM  NUMBER  . 1 2 } 
C 

DO  7^4  J21*  t » NC 
URITe  (6,7001)  J21 
7 C 0 1 FORMAT  (/H  ,9HCaTeG0RY  ,I2> 

J2  ' S NLV(J21) 

DO  7j3  J22*1*J20 

^OoVC< J21, J22)  1 1 

I F ( NPDES  :E3.  2 > GO  TO  706 
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nnno 


no  7 >2  J23*l * ID 
JJVEC  ■ LV=C(J23) 

T V t j23)  , T?V ( j2t  t j22  > JJVEC  ) 

*82  CONTINUE 
50  TO  *15 
786  C0NTjNUE 

DO  710  J23«l,  ID 
LLVEC  * IV=C(J23) 

SO  TO  (8oi.8:2.8:3.8:4,8o5) >LLvEC 

• 81  TV( J21-J22* J23)  * AMAX1 ( TT V ( J2l * J22 » 1 ) rTTV ( J21 * J22 * 4 ) ) 

50  TO  710 

• 8?  TV(  J21rJ22.  J23)  » AM/tXl(TTV(J2l»J22»2)#TTV(J2l»J?2»5)) 

SO  To  710 

• 83  t V C J21»J22. J 2 3 > • AMAX1 ( TTV < j2l . J22. 3) ,TTV ( j2lt J22.6 > > 

GO  TO  T10 

• 8<  TV( J21» J22. J23)  a AH  I Ml ( T T V ( J2l . J22 . 3 ) » T t V ( J2l . J22 . 6 ) > 

GO  TO  7 io 

• 85  Si  = n . **( TTV( J21, J22,3)/20.  ) 

52  = 10.**»TTV(  j21,  J22.6I/2'1  . ) 

TV< J21.J22. J23)  * ABS(S1«S2)/(S1*S2) 

T CONTINUE 

•15  rfRlTE  (6.6301)  ASP ( J21 , J22 > . (TV{J21»J22»J)«J=1.ID) 

783  CONT  jNUE 
78<  CONTINUE 


DO  41  I 3 1.  NC 
NWS ( I ) s : 

NWSB ( I ) a 0 
4l  CONTINUE 
15  IMS  , y 

nO  74"'  in,  Me 
*OOPaS  * 

I F ( NP ASS  .QT.  1 ) 30  TO  730 
NHOOE(t)  = 1 
CALL  UNIHOO 

if<  nPaSS  ;eo.  i ) go  to  74" 

730  CONTINUE 

I r ( 1 NE  < I ) .SQ.  J ) GO  TO  740 
mODCNT  = » 

735  call  Nu^oo 

I F ( NM  .60.  j ) GO  TO  740 
IMD  » 1 

mOHCNT  s HDDCNT  ♦ 1 
CALL  TRAN 

I F ( mODCNT  .36.  3 ) GO  TO  740 

if ( i Force  .=q.  i j go  to  7*o 
wonpAs  = mgo’as  ♦ i 

IF<  MODPAS  , jE , 2n  > GO  TO  740 
30  TO  735 


2S8 


TIO  CONTINUE 

c 

! r TNPASs.gQ.D  ao  tc  45 
IF  ( ImD.EQ.'T)  GO  TO  5,; 

15  CONTINUE 

WRITE  (6.71:0) 

Tfjo  FORMAT  If/IH  

!••••••«•«• ••••••••••••••••••«•••«) 

WRITE  (6.7510) 

7| 1 0 rORMAT  ( 3 'J  X , 3 H OUTPUT  FROM  SUBROUTINE  D fSTNC  > 

WRITE  (6.7520) 

7520  roRMAT  <tH  



00  46  I * 1 » NC 

I F ( NPASS  7EQ.  1 7 go  TO  20° 

IF<  I NE ( I ) • NE • &)  GO  TO  200 
WRITE  (6,033j)  I 

I-jJQ  P0RMaT  ( /l  4 ,25HlNrORMATlON  TOR  CATEGORY  « 1 3 * 15H  IS  Sa*E  aS  FOR, 
i/ih  . uh^evious  Pass, 

GO  TO  46 
283  CONTINUE 

CALL  DISTNC 
NMD  a NMODE ( I ) 

i r ( npass  'Eq.  i ) go  to  46 

WRITE  (6,7530) 

7580  fORmat  ( /I 4 . 32MN0,  Of  TRAINING  VgCTORS  PgR  MOoe> 

WRITE  ( 6 , 7 535  ) ( L*  KCNTT t I iL * * L *1 » NMD  > 

7535  PORMAT(lX* 13,10x716  ) 

85  CONTINUE 

WRITE  (6,75'j) 

WRITE  <6.754,, 

7543  FORMAT  < 3 ' X « 27HSTABALIZED  OUTPUT  FROM  T9 AN  ) 

WRITE  (6.752;, 

DO  48  I =1,NC 
WRITE  (6,7545)  1 

7545  r OhMa  T ( /h  , 13MCA  TEGORV  NO.  ,13/) 

I F ( NPASS  .63.  1 ) GO  TO  21° 

T F ( I NE  ( I ) . NE.  o)  GO  TO  21') 

WRITF  (6,834  j, 

|,40  FORMaT  ( / 1 4 , 44H I NFORMa  T I ON  FOR  THIS  CaTBGORY  IS  S*ME  AS  FOR  # 

1 / 1 h , ump^ious  pass, 

GO  TO  48 

210  continue 

\)M  0 3 NMODE(  I ) 

DO  47  L * 1 » 4MD 
WRITE  (6.7550,  L 

7550  FORMAT  ( i H , 9HM0DE  NO.  , 13) 

WRITE  < 6 . 7 555  ) < W<L,I,j),  J'l.lD  > 

7555  FORMAT (IOX.1  i(4X»F8.3,  , 

WRITE  (6.1017,  TW(L.I) 

47  CONTINUE 

48  CONTINUE 
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WRITE  ( 6 » 7 5 3 j ) 

-'RITE  <6.7J65> 

7*65  FORMAT  (3  X.  28H  OUTPUT  rROM  SUBROUTINE  IVAL) 

WRITE  (6,7523) 

00  52  1=1. NC 

1 NE  < I ) a 0 
NMD  " NMOD  = < I > 

00  53  Kl*l.MHO 

53  INEMODU  ,K1)  ■ 0 
00  J«1*NC 
NE ( 1 • J ) i 3 

51  CONTINUE 

52  CONTINUE 
CALL  EVAL 

IT  (NC0RR.50.NSI0>  QO  TO  65 
IF  ( IMPRUV.’EO.l)  GO  TO  5» 

50  NP ASS  a NP ASS  ♦ 1 
GO  Tf)  60 
55  NPaSS  a 2 

60  IF<  NPASS  ,qT,  4 > GO  T0  70 
WRONG  = NS  I G - NCORR 
00  61  1=1, NC 
NMO  s NMODa(I) 
nO  62  J=1 , NMq 
EM^D  s INENOq(I,J) 

CC  < I . J > * CK» ( 1 , - EMOD/WRONQ  > 

I F ( CC(I.J)  ,LT.  3.  ) CC(I*J)  = 3. 

<2  CONTINUE 
fll  continue 

q0  TO  X5 

65  WRITE  (6,  118) 

Ut8  tORMaT  ( 1H 3 , A3H  ALL  VECTORS  CLASSIFIED  CORRECTLY  • •«•) 

WRITE  (6, 7f-.  3) 

? 0 wRlTF  <6,  li  i ) 

WRlTg  (6,7523) 

WRITE  (6,7523) 

WRITE  (6,7323) 

WRITE  (6,  i n3)  IBEST 

1 C 1 3 fORMAT  (1H0,  38H  0EST  PERFORMaNCE  ON  TRAINING  SET,..?  , Ho/) 

0°  9U  I • 1.  Nc 
NPN  a NWSB < I > 

NEVCR  a NL  V ( I ) 

NMO  3 mBOD( l ) 

WR!TE  (6.  114)  I 

ivt*  rORMAT  (/35X,  43*  FINAL  WEIGHS  AND  TmRE*HOLDS  FOR  CaTEgOrT  ,13) 

WRITE  (6,  2 J > NWSB(  I > 

2000  t-ORMAT  (35<,  32H  (TOTAL  NUMBER  OF  WILD  SHOTS  IS  ,13,2m.)  ) 

WRITE  < 6 , 8 g ^ j ) 

1303  pORM  aT  ( 35X  , 37Ha*«  »•••••« > 

DO  8.i  L * 1,  NMD 
WRITE  (6,  1 315 > L 

l,t5  FORMAT  ( 1 H 3 » 13H  MOQE  NUMBER  , M) 
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»*|A 

1017 

1810 


2001 

1* 

76 

lt/20 

79 

00 

♦ 0 

C 

c 


c 


c 

c 

23 


23 

33 


40 


WRITE  <6.  1 16)  I0W(L.I. 
FORMAT  ( «4< « l U < »x ' F 1 . 3 > 


WRITE  (6.  1 l7 ) 0 T H ( I ' I ) 

4 THRis 


J>» 

) 7 


J » 1. ID) 


• i h I * ' * A / 

tORMaT  (26*.  13* 

WRlTE  (6.831)) 

FORMAT  (/  16*.  2TH  ASPECT 


SHOID  ■ , ^10.3) 

DISCRIMINANTS?  . 


> 


DO  79  K»2 • XEVCR 

I f ( HODvCBt I • K ) .NE.  L ) GO  TO  7* 
rr  ( MUSS ( I J .50. 0>  GO  to  76 
DO  74  ICK  * 1.  NPN 
ir  (K.NE.KASBI ! . ICK)  ) GO  TO  74 

WRITE  (6,  2 Jl)  ASP ( I » K ) » ( T9 ( I > K > J J ) » JJ  t 1.  ID) 

FORMAT  < 1 H . 16H***WlLD  SHOT***  . F 5 . 1 » 2 X i"l  0 ( 2X  . f§  , 3 ) ) 
r.OTO  70 

cont,nwe 


CONTINUE 

WRITE  (6.8327)  ASP(I.K).  ( T V ( I . K . JJ ) , JJ.l , I D ) 
FQ0MAT(  i7*.F5.1;2X»l''(2X'f8'3)  ) 


CONTINUE 
rONT ] NUE 


CONTINUE 


I F ( IPRO0  .lT.  NPROBS  ) QO  T0  730 

GO  TO  13 

END 

SUBROUTINE  JNIMOD 
COMMON  KB. 

1 C»  TV(10, 131.10)  , TTV( 1- ,181,10 ) . 9W(10,10,10)  , BTH(1O,10)  , 

2 W ( 1 0 • 1)»10)  - TH(lr  *10)  * *vD I ST ( 10 ) * X ( 1 2 ) , 

3 I I D ( 1 T ) . ASP(10.181).  LVEC(IO).  NWS ( 10  ) • KWS(IO.IO).  H3DCNT , IGWS  RR5J0 
cOMMON 

l'  ‘<C.  ID.  I.  NP*SS,  NM,  IHPRUV,  IbeST,  lTR*N,  M0DE,  IC*T# 

2 NU  V ( 1 £> ) , '(NODE  ( 1(1 ) , M0OD(ln*.  NCORR 


DO  1 i J * 1.  ID 
W ( ^ » 1 • J ) s 
CONTINUE 
iH { 1 , I ) * 0. J 
NVpCR  • NL*(l) 

!)0  3j  K s 1,  NVECR 
DO  2)  J • 1,  ID 

w(l.I.j)  * Nfl.I.J)  ♦ T V ) I » K .*  J > 
CONTINUE 

continue 

30  w • 1*  ID 

-w ( i • i • j > * wn* i« j)/7lo*t<nvecr) 
TH(1,I)  * TH(l.I)  * W(1,I,J)*W(1»I,J) 
CONTINUE 

TH  < 1 . I ) * -T4(l. I )/2. 
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w 


RETURN 

END 

subroutine  njmod 

COMMON  K8 • 

1 C.  TVd0.18l.10)  . T Tv  ( 1 ,181.10)  . BM(IO.IO.IO)  . 8TNUO.10)  . 

2 W(10.  1T.10)  . TH(l’.lO)  . *VOIST(tO}.  X(l*>, 

3 II  D ( l } ) « *3R  ( 10  • 1®1 ) » LVBC(IO).  NWSUOJ*  KWSUOdO)*  MODCnT,  IGwS  RR*NO 
COMMON 

1 NC.  ID,  l,  NPaSS,  nm,  impruv,  ibest,  itran,  mobe,  icat; 

2 NLV(IP).  MMDDEUO),  M800<lU,  NCORR 
C0MM0N/8L0:K2/  INEdO),  NE  (10,10),  I NEmQO  (10,10) 

COMMON /BLOCK  3/  MQDVCdC  • i«l  > * MOOVCBtlOil«l ) • KCNTT  ( i ' , 10  ) • 

1 aVMOOE<i:’,io> 

COMMON/BLOCK4/  cc(iono).  IFORcE 
0 1 mEnS  I On  AVEdO) 


NFORCE  * 0 
IFORCE  « 1 
NMD  • NMODi ( I ) 

DO  * L«1 « NAD 

AVe(L)  « CC{  t ,U*AvMODE(  l ,L) 

I F ( aVe<1)  ..T.  > A Ve  < u > » .Col 

* CONTINUE 
1 CONTINUE 
ITRAn  a 1 
NM  ■ 0 

IF  <NMODE<  I) .GE.IO)  00  TO  50 
NVECR  0 NL  V ( I ) 

00  S')  K i 1.  NVECR 

IF  ( NWS ( I ) .53.  J>  GO  TO  6 

NNN  a NWS ( I ) 

IF  (NNN.GT.ij)  NNN  i u 

1)0  5 Nj  * 1.  NNN 

IF  <K .EQ.KASI 1 ,Nl) ) GO  TO  3) 

’ continue 

f>  CONTINUE 

DO  1 1 J » 1.  ID 
*<  J>  » T V ( I • < » J ) 
tO  CONTINUE 
CALL  DECIDE 

I F ( I NEMOD ( I , MODE  ) .EQ.  0 ) GO  TO  30 
ms  ■ o.o 
no  2j  j * 1'  id 

ois  < n I s ♦ (W(MODE,l,J)-TV(l,K,J))*(W(MOOE,l.J)-TV(t,K,J)> 
20  CONTINUE 

DIS  a SORT(DIS) 

I F ( Qls  . L c . AVE ( MODE  > ) GO  TO  3o 

K8  a K 
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80  TO  55 
•o  CONTINUE 
gO  TO  50 
|5  NM  ■ 1 

NMODE<I>  * NMDDE < I ) ♦ 1 
MHO  ■ NMODS  < I ) 

CCU-NMD)  » CC(ITMOOE) 
aV*OdE< I,N«d)  • *VE<MOdEI 
~ iNEH0DU,N4D>  » 1 NEHOD 1 1 $ MODE  > 

TH ( NND»  1 J ■ 0,0 
00  *0  J » t.  ID 
y(NMD.I.J)  ■ tv(1»kb;j> 

TH(NH0rI,  « TH(NNd,I|  ♦ g(NM0>I,J,.HtNM0- I,J) 

40  continue 

THTNMD.  1 -TRdJHD.TKZT 
»0  CONTINUE 

I F ( NH  .Eo;  1 ) 00  TO  70 
IF<  HODCnT  • 3T  • 0 ) 00  T(J  7C 
NFORcE  ■ NC04CE  * l 
1 F ( Nr0RCE  . 3E . 10  ) QO  TO  70 
IFORCE  *1 
DO  60  L*  1 > VMD 
40  A VE  ( L > * 0.’9»AvEtC> 

30  TO  1 
TO  CONTINUE 
RETURN 
END 

SUBROUTINE  OISTNC 

c 

COMMON  KB » 

t c»  Tvuo.t8i.io)  . TTvir.m.m  . Buiio.to.ic)  . btmuo.io)  . 

2 H( 10  * 13*10)  . TH ( 1 j . 1 0 ) . *vOlST(IO).  X<t2) » 

3I1D(10).  ( lu  » t®i ) » LVlC(l|) . NWS (tOli  RMS(IO.IO)*  MODONT.  IShS  RR5D0 

COMMON 

1 Nc,  IQ,  1.  NPASS,  NM,  IMPRUV,  IBEST,  JTRaN,  MODE,  1CAT; 

2 NLV<10>,  NM0DE<10>,  MB0D<10>,  NCORR 

COMMON^BuODKS'  MOOVC(1o.181);  MODVCBtlO.SBl),  KCNTT(IDiIO), 

1 AVMOOE ( 1 0 » 1 J ) 

DlMENStON  ICNT(in) 

C 

c 

itran  ■ t 

AVDUT(J)  » 3 . U 
VMD  . NM00e< I ) 

"0  M L t I,  NMD 

aVMOoE(I.L)  » 0. 

ICNTtL)  * 0 
KCNTTU.U  * 

JO  CONTINUE 

I F ( NPaSS  ,0T.  1 ) WR  I TEf  6U004  ) 
i',l«  FORMAT  </14  , 36MCaT.  NO?  Train.  VEC i NO.  MODE  NO.) 

NVECB  b NLV(I) 
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00  4,1  K » i.  NVECR 

00  2«  J ■ i.  ID 
X<  J)  * TV<  f»<» J) 

20  CONTINUE 
CALL  DEC  I OS 

1F<  NPASS  .QT.  1 ) WRITE<6.1003)  I. K, MODI 
1083  rO»M*T  <1H  . 3X. I3.12X* l3;i2Xi 13) 

ICNT(HODE)  ■ ICNT(MODE)  ♦ 1 
*ODvC(i,«)  i NODE 

0 1 3 ■ 0.0 

oo  3-.i  j * l,  in 

niS  ■ DIS  ♦ (NtMODE. 1. J)-TV(l.K.J) >*»WIMBDE, I . J > V ( I,K,J>> 

50  CONTINUE 

A V^OnE ( I » H JOE  ) * AVMODE ( I * NODE  ) ♦ SQRTtDJS) 

<0  continue 

00  5 ,j  L ■ X,  NMD 

AVMOoE(I.L)  « aVnOdE(I,L!/FLOaT(icnT(L)) 

KCNTT<I.Li  * ICNT<LJ 

WRITE  (6,10'>1)  L;  AVMODE  ( I . L ) 

Itfll  rORMAT  <jH  , 8HM0DE  NO . . I 3»  32W  MEaN  DISTANCE  TO  MODS  VECTOR  ■ , 
lr10.3) 

A VO  I ST ( | ) * A VD I ST  < 1 | ♦ aVMOdE<I,L> 

JO  CONTINUE 

A VD I 3T ( I J « AVDIST( I )/FLOAT(NMD) 

WRITE  (6*  10)2)  I*  NMD  • A yD I ST  < I ) 

1082  FORMaT  <!*  , 9«CATEG0RY( , 12.  13H)  MO,  MOOES  * , 1 3 , 37*  OVERALL  RP5DP 
lMEAN  DISTANCE  ■ ?Ffl.3/> 

RETURN 

END 

SUBROUTINE  DECIDE 
C 

COMMON  KB. 

1 c»  TV<10, 181,10)  , TTVfl'1 ,181.10)  , BW(IO»10,10)  , btH(10,18)  , 

2 W(10'  10,10)  » TM(1  *10)  » AyD I ST ( 10 ) « X(l2)» 

3 1 10(10) . A3P(10»1«1),  LVBC(IO).  NkSIlO)*  khscio*io  » » MODCNT.  IGWS  RR5C0 
COMMON 

1 NC,  ID,  I,  NPaSS,  NM,  IMPRUV,  Jr  EST,  JTRaN,  M0BE.  ICATj 

2 NLVUO).  NMODE'lO),  MBOD(nJ.  N:  )RR 
DIMENSION 

1 3 ( 10,10) 

C 

c 

IF  IITRaN.sQ.  •.  GO  TO  1 -> 

II  * I 
IUP  ■ I 
GO  TO  20 

SO  I I s 1 

IUP  * NC 

*U  00  4.J  U r IJ.  IUP 
NMD  I NM0D5< II) 

1)0  3)  L I 1,  NMD 
g<l,  ID  * 0,  J 
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c 


c 

c 


10  CONTINUE 
0 CONTINUE 

IHT'ftJ  11  - II.  I UP 

NMD  ■ NMODcl II) 

00  7u  L « 1.  NMD 
00  5'J  J ' I.  ID 

3(1.11'  ■ 3<l.Il>  ♦ X(J)*W(L.  ll.J> 
JO  CONTINUE 

Q ( L , 1 1 ) • 1(L.I1>  * TH(L.Il) 

IF  (l.EQ.D  30  TO  60 
IF  (OIL.  ID  .LT.QMMaXI  GO  TO  TO 
10  LODE  • L 

GMMAx  ■ Qlwitll 
TO  CONTINUE 

IF  (!l.’EQ.X.OR.  JTRAN.EQ.I)  QO  TO  80 
IF  ( OMMAx  • »T  • GMAX ) QO  TO  ’0 
•0  TCaT  ■ Ii 
MODE  ■ LODE 
QMAX  ■ GMMAX 

to  continue 
return 

END 

subroutine  TRAN 


COMMON  K9. 

1 C.  TV(10. 181,10)  . T T V < 1 .,181,10)  * BwtlO. 10.10)  . BTM(IO.IO)  . 

2 W(10,  1J.10»  , TH  ( 1 ' » 1 0 ) . AvDIST(lO),  X(l2), 

31  I D ( 10 ) » ASP ( io  » 1»1 ) * LVBCI10 ) > NWS(IO).  KWS ( U . 10  J » MODCNT,  IGWS  RRSTq 
COMMON 

1 Nc,  ID,  I.  NPaSS,  NM,  JMPRUV,  I BEST , jTRaN,  MOOE,  TCAT, 

2 NlV<10>,  NMODEUO),  MRODdOJ,  NOORR 

C0MMON/BL0CK2/  INE(lU).  NE  < 10 . 1 0 | , 1 NEMOO< 1° , 1C ) 

COMMON/BLOCKJ/  MODVC< lu » 1«1 ) « MODVCB  ) » KCNTT ( 1C  1 10  ) • 

1 avmode<io*io> 

COMmON/BlOCKA/  CC<10,.1«),  IFORCE 


DIMENSION 
IkCNT(IO) . 


JCNT(IO) . LWSd  ') 


KILPaS  * 0 
KILL  « 0 
IGWS  8 0 
I TRAN  • 1 
NMD  . NM0D3( I ) 

4 KPaS  ■ 1 
10  00  2)  L * 1.  NMD 
KCNT(L>  • i 
20  CONTINUE 

NVECR  * NL V ( I) 

DO  5o  K ■ i*  NVECR 

IF  ( NWS ( I) . E3, t ) GO  TO  6 

NVA  a NWS ( | ) 
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no  5 Ni  • l,  nVa 
"IF  tK.EOTKtStl ,N1> ) QO  TO  50 
5 CONTINUE 
ft  CONTINUE 

no  3 J J ■ l.  ID 
X(  J)  * TV ( I * K » J ) 

So  CONTINUE 
CAU  DEC108 

KCNT(MODE>  ■ KCNT(MODE)  ♦ 1 
TMR  ■ 0.0 

if<  kcnt(mdde)  .gt.  2 ) go  to  31 

LW3(M0DE)  • K 
II  CONTINUE 

do  4ir  j ■ x,  ID 

W(HOOE, 1 *J)«irLOAT(KCNT(MODE)-l) /Fl04T »K9NT(M0DE) ) )»N (MODE, UJ) 
UTV<  I »K»  J)/<FLOAT(KCNT<MODE)  > ) 
tHR  . THR  ♦ ( MODE  , I , J ) *W ( MODE , IfJ) 

10  CONTINUE 

TH  * MODE  * I > * -THR/2, 

50  continue 

no  5i  jji«i,nmd 
<CNT(JJ1)  * <CNT(JJi)  - 1 

51  CONTINUE 
jNcRS  • 0 

00  7 j L * t.  NMD 

IF  (KF9S7EJ.1)  GO  TO  6-j 
IF  (KCNT(L) ,.E. JCNT(L)  ) 00  TO  70 
43  jCNT<l>  ■ <CNT(L) 

INCR9  B 1 
TO  CONTINUE 

IF  (INCRS.iQ.  ')  GO  TO  80 
KP*S  • KP A$  ♦ 1 
IE  (KPaS.LS.i  > GO  TO  i: 

«0  continUe 
KXl  ■ 0 

DO  9 J l ■ NMD 
IF  (KCNT(L) . ST  . 1 > GO  TO  85 
TFC  KCNT(L)  ,LT,  i ) KILL  f i 
NVA  • NWS  < 1 ) 

1 f I NVA  . E 3 . ) GO  TO  107 

DO  U5  Nl  ■ 1.  NVA 

I F C KILL  • iQ • 0 ) GO  TO  1.6 
IF(  K0  .EQ.  <WS < 1 , Ni > ) GO  TO  8l 
G0  TO  105 
186  CONTINUE 

IF  (LUS(L) ?E3.KHS( I #Nl> > GO  TO  81 
105  continue 

107  CONTINUE 

NWS ( I ) r N WS  < I ) ♦ 1 
IF  (NWS< I ) .GT.iO)  GO  TO  12 
IF<  KILL  . EQ t U I GO  TO  Ul 


HNO  ■ HWS<  I) 

KHS(I.HNQ)  ■ KB 

writs  (s.ioottkb.  r 

rORMAT  (XH  , 13HK1LLED  VICTOR. 13.  x2M  IN  CATfiGORT • 1 3 ) 

00  to  61 
•91  C0NTlNUE 

mNO  ■ MWI ( 1 ) 

KHS(!.RNO>  • LWSfL) 

#1  EONTINUr 

VNODE { I ) ■ NMODE ( I > k 1 
IF  CvHODElD.lT.i)  NH0DE<1)  * l 
12  IONS  * 1 
GO  TO  ?° 

•9  KXi  ■ KXl  * 1 

00  f S J ■ 17  TO 

W(«Xl, I, J)  a N(U( 1, J) 

IS  cONTjNUE 

th<kxi»i»  ■ th<l;.i> 

I NEMOD l 1 . KXl ) > INEMODU'.L) 

AyMOOE^ I »K<1 ) ■ AvmqDE(J.L) 

— - conT^nr't  ~cc(tTti 

90  CONTINUE 

in  KILL  .50.  U > GO  TO  92 
KILL  a 0 

KlLPAS  « KlL*»AS  ♦ 1 

IF  ( KILP*S  jGT,  i ) GO  TO  92 

6i)'r0  4 
92  CONTINUE 

IF  HGWS.Ea.OJ  GO  TO  91 
IF  ( NWS < I ) TOT.IO)  GO  TO  9i 
HQDCNT  t H3DCNT  . i 

91  cOnTjnUE 
RETURN 

END 

SUBROUTINE  EVAL 
C 

COMMON  KB. 

1  C.  TV (10»191tl0)  . TTV ( 1 ’ . 181 . 10  ) , BW(iO.lQ.lO)  . BTM(10,16>  . 
r w»io.  io.ioi  . TH(n.iO)  , AVoigT(iO},  x<i*)» 

3 1 1 D ( 10  ) . A9P(10.l8i).  LVlC(lO).  NMSUOti  KMS<10»10)»  MODCNT.  IGWS  RR5E0 
COMMON 

1 NCl  lo,  I,  NP*8S,  NM,  1MPRUV,  IBeST,  JTRaN,  MO0E.  ICAT, 

2 NLVflOJ.  TMODE  < 10  J , MBODUo).  NCORR 
C0MM0N/BL03K1/  NWSB ( 1)  , K«SB(lO,10> 

COMMON /BLOCK 2/  INE<10).  NGtlO.lO).  INEM0D( 10 i 10 ) 

C0MM0N/BL00K3/  MODVC< lo . 181 ) » MOOVCBtiO . Ifll ) . KCNTT< l" , 10 > , 

1 AVMOOE ( 1’ .10) 

DIMENSION  J I < 10  ) 

c 

c 

ITRAN  * 0 
IMPRUV  * 1 


267 


ncorr  « 0 
write  (6,  uon 

1*91  roRHAT  <1H  . 54HTRU6  CATV  VECTOR  NO,  TRU^  MODE  MACH.  CAT. 
ImOOE/) 

DO  Ai)  I • 1,  NC 
J I < I > * I 
MVECR  = NL V ( I ) 
no  3 o k * i,  nvecr 
no  V)  j ‘ t,  id 

X<  J>  * T V ( I » < » J ) 
to  CONTINUE 
CALL  DECIDE 

IF  ( ICAT.NS. I > GO  TO  2 ) 

NCORR  b NC3RR  ♦ t 
DO  To  30 

20  WRITE  (6,1002)  l>  K,  MODVc<I,k>.  IcaT,  MODE 

1002  FORMAT*  5Xfi2,10K,l3;i  X , 1 2 , 11  * , 1 2 . 7* , 1 2 ) 

NE( I . ICAT)  = NE  Cl# ICAT)  ♦ 1 

MJJs  MODVC ( I • K ) 

I NEMOD ( I , M J J ) = ! NEMOD ( I , M J J J ♦ 1 
30  continue 

40  CONTINUE 

DO  42  JJJ  • t.NC 
DO  41  J J»  1 » N " 

INE(JJj)  = INE( JJJ)  ♦ NE ( J J J; J j ) 

41  C°NT I nUE 

42  CONTINUE 

WRITE  (6,  U'J3)  NCORR 

1003  FORMAT  (iHQ,  34H  NO.  CORRECT  CLASSIFICATIONS,...?  ,16/) 

IF  (NCORR. .£.  IBEST)  GO  TO  9 i 

imrruv  * i 
50  IBEST  = NC3RR 
no  8«  1 I 1,  NC 
NWSBM)  » NWS(I) 

IF  ( NWS B(  I ) . =Q. 0)  G0  TO  35 
NNN  b NWS0(  I ) 

DO  54  N1  = 1,  NNN 
KWSB(  I f Nl ) * KWSU  ,N1) 

54  CONTINUE 

55  CONTINUE 
NVECR  = NL V ( I ) 

DO  61  K K * 1 • NVECR 

61  MODVCBt  I ,*<<)  = MODVC(I.KK) 
mBOD<1)  ■ NMODE I I I 
NMD  s MBOD( I ) 

DO  7.  L : t,  NMD 
DO  6J  j * l,  ID 
RW ( L » I , J)  * W ( L , I , J ) 

60  CONTINUE 

RTH (L  • I ) = T H ( L » I ) 

To  CONTINUE 
80  CONTINUE 
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r 


•0  CQNI1NUE 

WRITS  < 6 •IQ  J 4 ) 

|U04  pOWHiiT't/isr,  12H|^CR  Ha™!*! 

write  < 6 , 1 0 ■:  5 > c Jl<lJ>,iJ«l.NC  > 

%99*  rORMAT(  3x, 10(1X712, ?X)  ? 

DO  190  I * 1 » M C 

WRITE  (6,1506)  I;(NE<I,ll)itT«i,NCi 
1W|6  rORHAT  (2X,  12, IX, ’I’M  14, IX)) 

I»0  CONTINUE 
RETURN 
CND 

3 3 

•lifl  30.0  1?0 

MODEL  Al  / 39  9.00  2 15 

936  -35.5  147  0.5  O’,  99 

WiiT/vERT  181  0.0  5070  0 

HiilZ'HDRlZ  101  0.0  50yn  0 


0.0 

3.0 

52.7-24.1 

4.0 

52.2-23.8 

32.5 

• . 5 

6.0 

52.7-25.7 

6.0 

53,7-23.0 

53;* 

52,7 

o;* 

1.0 

5.0 

53.2-24.9 

6.0 

52.7-24.9 

i . 5 

6.0 

53.2-25.1 

6.0 

52.7-25.2 

2.0 

5.0 

53.2-25.4 

6.0 

52.2-25.5 

1,0 

2.5 

6 . 0 

53.7-25.1 

6.C 

52.2-25.5 

3.0 

4.0 

52.8-25.6 

5.0 

52.7-26,2 

1.0 

3.5 

5.0 

32.7-26.1 

5.0 

52.3-26.4 

51,3 

4,0 

4.0 

52. 7-27. u 

5.0 

52.3-24.6 

50,8 

4.5 

4.0 

54.2-26.7 

5.0 

51.8-24.9 

52)  8 

5.0 

4.0 

54.7-26.4 

5.0 

52.7-25,7 

52.7 

3,5 

5.0 

54.2-26.4 

6.0 

52.3-26.3 

0,5 

a.  o 

4.0 

32.7-26.6 

5.0 

51.8-26.6 

0,5 

8.5 

3.0 

33,7-26.8 

6.0 

52.3-26.4 

0,5 

0,5 

7.0 

3.0 

52.7-25.8 

6.  j 

51.0-26.4 

7.5 

3.0 

33.2-26.5 

6.0 

51.8-25.9 

0,5 

■ .0 

2.0 

18.2-26.3 

6.0 

52.0-26.3 

52,3 

8,5 

3.0 

52.8-25.9 

4.0 

51.8-25.2 

1,0 

♦.0 

3.0 

52.3-25.9 

5.0 

50.8-25.1 

0,0 

9,5 

2.0 

52,8-26.1 

5.0 

52.3-25.4 

0,0 

o.o 

10. 0 

2-0 

51.8-25.3 

6.0 

51.3-25.8 

10.5 

3.0 

54.2-25,1 

5.0 

51.3-25.3 

0,0 

11,0 

3.0 

53.7-26.2 

5.0 

51.3-25.2 

0,0 

11.5 

3.0 

35.7-26.0 

5.0 

50.8-24.4 

0,9 

12.0 

3.0 

54.7-25.8 

5 . 0 

51.3-24.5 

0,5 

1,0 

12.5 

3.0 

51.8-24.8 

6.o 

50,8-25.3 

13.0 

4 . 0 

31.3-25.7 

6,0 

50 .8-24 . 7 

1,3 

13,5 

3 . 0 

51.3-26.1 

7.0 

50.8-24.8 

l'.O 

14, C 

3.0 

3 -.8-25.9 

7.0 

50.3-25.6 

0,5 

14.5 

3-0 

31.3-25.3 

7.7 

50.8-25.0 

1.0 

15. 0 

3.0 

3 .8-26.1 

6.0 

50.8-25.8 

0,0 

15.5 

3.0 

3 ,3-25.8 

5.  i 

51.3-24.8 

0,0 

16,0 

5.0 

48.8-27.0 

6. 

49.3-25.4 

0.5 

|4  • 5 

3.0 

3".  3-26. 5 

5.0 

53.3-26.2 

0,5 

17.0 

3.0 

49.8-25.6 

5.u 

46.4-25.9 

1,0 
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fl.5 

lt.O 

It. 5 

29.0 

29.5 

21.0 

21.5 

22.0 

22.5 

28.0 

28.5 

24.0 

24.5 

25.0 

25.5 

26.0 

26.5 

27.0 
2t.5 

21.0 

21.5 
2?,  0 
2t . 5 

10.0 

30.5 

31.0 

11.5 

32.0 

12.5 

35.0 

33.5 

14.0 

34.5 

35.0 

35.5 

36.0 

36.5 

37.0 

37.5 

38.0 

38.5 
3t.  0 
3t . 5 

40.0 

40.5 

41.0 

41.5 

42.0 

42.5 

43.0 


4 . 0 

49.8-26 . 6 

6 . r 

49.9-25.9 

0,5 

3 . 0 

49.3-26.U 

6 . ’i 

49.8-26.3 

0,5 

3.0 

48.8-26,3 

6 . 0 

49 . 3-?5  .‘6 

0.0 

3.0 

48.3-25.9 

5." 

44.9-26.2 

1,0 

3. 0 

5 .8-25.5 

6. 

49 . 8-26 . 0 

1.0 

3.0 

49.3-25.1 

3.0 

45.4-25.2 

0,5 

2.0 

51.8-21.5 

4.0 

48. 8-?5. 6 

0,0 

2.0 

52.2-25.2 

4.0 

48.8-24.9 

1,5 

2.0 

49,3-24,5 

4 . 0 

48.8-24.4 

0 , 0 
0.0 

3.0 

47.8-25.4 

4 , C 

49.3-24.8 

3.0 

47.3-24.3 

5.n 

47.8-24.7 

0,5 

3 . 0 

47,8-24.9 

5.0 

47.3-24.9 

1,0 

3.0 

46 . 8-24 . 9 

4.0 

46, 9-24  , '6 

0,5 

3.0 

46.3-25.0 

5.  ' 

46.8-24.8 

1,5 

3.0 

47.3-26.1 

4 . 0 

46.8-24.-7 

1.0 

3 • 0 

46.8-25. 2 

4 . n 

46 .8-25 . 0 

0.5 

2.0 

46.8-25.9 

4.0 

46.3-24.1 

0,5 

2.0 

47,8-25.1 

4.0 
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MISSION 

of 

Rarne  Air  Development  Center 


RADC  plans  and  conducts  research,  exploratory  and  advanced 
development  programs  In  command,  control,  and  communications 
(C3)  activities,  and  in  the  C3  areas  of  information  sciences 
and  intelligence.  The  principal  technical  mission  areas 
are  communications,  electromagnetic  guldauice  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology , 
ionospheric  propagation,  solid  state  sciences , microwave 
physics  and  electronic  reliability , maintainability  and 
compatibility . 
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